# generate random data set
data <- ran.data(100,25)
time <- data$time
data <- data$data
# call grofit
TestRun<-grofit(time,data,TRUE,grofit.control(nboot.dr=50))
# plot dose-reponse curve sample
plot(TestRun$drFit$drBootSplines[[1]], colData=c(1,3),pch=1:4,cex=3:5,
colSpline=c("tomato", "tomato1", "tomato2", "tomato3", "tomato4"))
Run the code above in your browser using DataLab