model1 <- multdrc(length ~ conc,
date:treatment,
data = twofactors, fct = l3(),
collapse =
list(~date:treatment-1, ~date:treatment-1,
~date:treatment-1),
na.action=na.omit)
summary(model1)
rm(model1)
Run the code above in your browser using DataLab