data(grofit.time)
data(grofit.data)
TestRun <- gcFit(grofit.time, grofit.data)
dev.new(width=10,height=5)
par(mfrow=c(1,2))
plot(TestRun, opt="s", pch=1:7, cex=1, colSpline=2, colData=1:7)
title("Spline fit")
plot(TestRun, opt="m", pch=1:7, cex=1, colModel=1, colData=1:7)
title("Model fit")
par(mfrow=c(1,1))
Run the code above in your browser using DataLab