data(metamitron)
modNlin <- nls(Conc ~ A[Herbicide] * exp(-k[Herbicide] * Time),
start=list(A=rep(100, 4), k=rep(0.06, 4)),
data=metamitron)
tab <- summary(modNlin)
pn <- c("k1", "k2", "k3", "k4")
compCoefs(modNlin, pn) # Holm multiplicity adjustment
compCoefs(modNlin, pn, adjust = "none")
# Displaying letters (P = 0.05 is default)
compCoefs(modNlin, pn, adjust = "none",
display = "cld")
# Calculate ratios
compCoefs(modNlin, pn, adjust = "none",
display = "pairwise", operator = "/")
Run the code above in your browser using DataLab