inst/snippet/cooling03.R
In rpruim/fastR: Foundations and Applications of Statistics Using R (2nd Edition)
cooling.model2 <-
nls(temp ~ ambient + A * exp( - k * (1 + time)),
data = CoolingWater1,
start = list(ambient = 20, A = 80, k = 0.01) )
f2 <- makeFun(cooling.model2)
gf_point(temp ~ time, data = CoolingWater1) %>%
gf_fun(f1(time) ~ time, lty = 2, col = "gray60") %>%
gf_fun(f2(time) ~ time, col = "red", size = 0.8) %>%
gf_labs(y = "temp (C)", x = "time (sec)")
rpruim/fastR documentation built on Nov. 12, 2023, 12:26 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
cooling.model2 <-
nls(temp ~ ambient + A * exp( - k * (1 + time)),
data = CoolingWater1,
start = list(ambient = 20, A = 80, k = 0.01) )
f2 <- makeFun(cooling.model2)
gf_point(temp ~ time, data = CoolingWater1) %>%
gf_fun(f1(time) ~ time, lty = 2, col = "gray60") %>%
gf_fun(f2(time) ~ time, col = "red", size = 0.8) %>%
gf_labs(y = "temp (C)", x = "time (sec)")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.