## Using one model throughout
m <- pcrfit(reps, 1, 2, l4)
pcropt1(m)
## Selecting the best model for each combination
## by Akaike weights
m <- pcrfit(reps, 1, 2, l4)
pcropt1(m, opt = TRUE, crit = "weights")
Run the code above in your browser using DataLab