data(S27)
### on single data
m1 <- multdrc(F1 ~ Cycles, data = S27, fct = l5())
pcrplot(m1)
### defining 15 replicates
repData <- repform(S27[,1:16], c(0, rep(1, 15)))
m2 <- multdrc(values ~ Cycles, curve = Curve, data = repData, fct = l5())
pcrplot(m2, type = "all")
Run the code above in your browser using DataLab