simdf <- growthSim("logistic",
n = 20, t = 25,
params = list("A" = c(200, 160), "B" = c(13, 11), "C" = c(3, 3.5))
)
ss <- growthSS(
model = "logistic", form = y ~ time | group,
df = simdf, type = "nls"
)
fitGrowth(ss)
ss <- growthSS(
model = "gam", form = y ~ time | group,
df = simdf, type = "nls"
)
fitGrowth(ss)
Run the code above in your browser using DataLab