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