data(lotus)
library(drcte)
#A constraint was put on the second curve (Stage B), in order to avoid an estimate higher than 1.
mod <- drmte(count ~ timeBef + timeAf, data=lotus, fct=LL.3(),
curveid=Stage, upperl = c(NA, 1, NA))
summary(mod)
Run the code above in your browser using DataLab