### on single data
data(reps2)
m1 <- pcrfit(reps2, 1, 2, l3())
pcrplot(m1)
### on replicated data
repData <- repform(reps2[,1:4], c(0,1,1,1))
m2 <- drmfit(values ~ Cycles, curve = Curve, data = repData, fct = l5())
pcrplot(m2)
Run the code above in your browser using DataLab