## which cycles have low influence
## on parameter 'c' (the lower
## asymptote)?
m1 <- pcrfit(reps, 1, 2, l4)
pcropt2(m1, which.par = "c", quan = 0.3, delete = "low")
## and on 'b' and 'e'?
pcropt2(m1, which.par = c("b", "e"), quan = 0.3, delete = "low")
## very high influence on 'd'
## (upper asymptote)?
pcropt2(m1, which.par = c("d"), quan = 0.1, delete = "high")
Run the code above in your browser using DataLab