data(reps3)### on single data
m1 <- multdrc(F1.1 ~ Cycles, data = reps3, fct = l4())
pcrplot(m1)
### on replicated data
repData <- repform(reps3[,1:4], c(0,1,1,1))
m2 <- multdrc(values ~ Cycles, curve = Curve, data = repData, fct = l5())
pcrplot(m2, type = "all")
Run the code above in your browser using DataLab