Function to determine kidney function using a radionuclidic method:

rplot<-function(filename) {
print(filename)
 x11(xpos=-50)
ybuff <- (scan(filename))
ymaxvalue <- max(ybuff)
yminvalue <- min(ybuff)
plot(ybuff, ylab="Value", xlab="Pixel", type="b",
+  ylim=range(yminvalue,ymaxvalue),
+  main="Lung Project",
+  sub="Range of Pixel Values Along +Line",pch=20)
system("sleep 5")
}

Details of calling this function and generating the output shown below will be covered following the plot.

---

Transcript

o, in this case, who created a function called GFR1, it takes a set of parameters. We put some print statements in, so we output the information about each of those parameters - so if they're not provided, it will print messages telling us what we are expected to enter into this function.  We calculate a bunch of values based upon those parameters, and we output an answer.