### Using one model throughout
m <- multdrc(F1.1 ~ Cycles, data = reps, fct = l5())
temp <- pcropt1(m)
edit(temp)
### Selecting the best model for each combination
m <- multdrc(F1.1 ~ Cycles, data = reps, fct = l4())
temp <- pcropt1(m, opt = TRUE)
edit(temp)
Run the code above in your browser using DataLab