# generate random growth curve data set
foo <- ran.data(100, 25)
time <- foo$time
data <- foo$data
# fit dose response curves
drData <- gcFit(time,data)
# use the output of gcFit as an input for drFit
drFit.result <- drFit(summary(drData))
plot(drFit.result)
Run the code above in your browser using DataLab