Rumford data frame has 13 rows and 2 columns from an
experiment by Count Rumford on the rate of cooling.
This data frame contains the following columns:
a numeric vector giving the time since the beginning of the experiment (hr).
a numeric vector giving the temperature (degrees Fahrenheit) of the cannon.
Bates and Watts (1998), Nonlinear Regression Analysis and Its Applications, Wiley (Appendix A1.5).
1 2 3 4 5 6 7 8 9 10
plot(temp ~ time, Rumford, las = 1, xlab = "Time since beginning of experiment (hr)", ylab = "Temperature of cannon (degrees F)", main = "Rumford data and fitted curve") fm1 <- nls(temp ~ 60 + 70 * exp(tc * time), data = Rumford, start = c(tc = -0.01)) summary(fm1) usr <- par("usr") xx <- seq(usr, usr, len = 50) lines(xx, predict(fm1, list(time = xx)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.