Data consist of average body weight gain of chickens being treated with one of the two methionine sources DLM and HMTBA.
A data frame with 9 observations on the following 3 variables:
a factor with levels
MHA denoting the treatments
a numeric vector of methionine dose
a numeric vector of average body weight gain
The dataset contains a common control measurement for the two treatments. More examples using this
dataset are found under
Kratzer. D. D. and Littell, R. C. (2006) Appropriate Statistical Methods to Compare Dose Responses of Methionine Sources, Poultry Science, 85, 947–954.
1 2 3 4 5 6 7 8 9
## Fitting model with constraint on one parameter met.ar.m1 <- drm(gain~dose, product, data = methionine, fct = AR.3(), pmodels = list(~1, ~factor(product), ~factor(product)), upperl = c(Inf, Inf, 1700, Inf, Inf)) plot(met.ar.m1, xlim=c(0,0.3), ylim=c(1450, 1800)) abline(h=1700, lty=1) summary(met.ar.m1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.