# 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$gcFittedModels[[6]],
colData=c("wheat","wheat2","wheat2","wheat3","wheat4"),
colModel=1,pch=4:7,cex=2:5)
Run the code above in your browser using DataLab