# generate random data set
data <- ran.data(100,25)
time <- data$time
data <- data$data
# run growth curve fit
TestRun <- gcFit(time,data)
plot(TestRun$gcFittedSpline[[3]],
colData=c("wheat","wheat2","wheat2","wheat3","wheat4"),
colSpline=1,pch=4:7,cex=2:5)
Run the code above in your browser using DataLab