| Sulfi {NRAIA} | R Documentation |
The Sulfi data frame has 12 rows and 2 columns from an experiment
on the pharmacokinetics of sulfisoxazole.
This data frame contains the following columns:
Bates and Watts (1998), Nonlinear Regression Analysis and Its Applications, Wiley (Appendix A1.5).
plot(conc ~ time, data = Sulfi, las = 1,
xlab = "Time since drug administration (min)",
ylab = expression(plain("Sulfisoxazole concentration (")
*mu*plain("g/ml)")),
main = "Sulfisoxazole data and fitted curve")
fm1 <- nls(conc ~ SSbiexp(time, A1, lrc1, A2, lrc2),
data = Sulfi)
summary(fm1)
usr <- par("usr")
xx <- seq(usr[1], usr[2], len = 50)
lines(xx, predict(fm1, list(time = xx)))
plot(conc ~ time, data = Sulfi, las = 1, log = "y",
xlab = "Time since drug administration (min)",
ylab = expression(plain("Sulfisoxazole concentration (")
*mu*plain("g/ml)")),
main = "Sulfisoxazole data (log scale)")
lines(xx, predict(fm1, list(time = xx)))