## Not run:
# data <- t(t(matrix(rnorm(1000),200)) + 1:5)
# mod <- OLScurve(~ time, data = data)
# subjplot(mod)
#
# ##quadratic
# data <- t(t(matrix(rnorm(1000),200)) + (0:4)^2)
# mod2 <- OLScurve(~ time + I(time^2), data = data)
# subjplot(mod2)
#
#
# ## End(Not run)
Run the code above in your browser using DataLab