# Simple example
g <- MicrobialGrowth.create(N0 = 0.14, Nmax = 1.43, mu = 0.07, lambda = 45,
xlim = c(0, 100), model="gompertz")
# Example from a regression (whose values can be stored and then reused later)
g <- MicrobialGrowth(example_data$time, example_data$y1, model="gompertz")
c <- g$coefficients
g2 <- MicrobialGrowth.create(c$N0, c$Nmax, c$mu, c$lambda,
xlim = c(min(g$data$x),max(g$data$x)), n = length(g$data$x), model="gompertz")
# Example with confidence intervals
g <- MicrobialGrowth.create(N0 = c(0.13, 0.15), Nmax = 1.43, mu = c(0.05, 0.07, 0.09),
lambda = c(45, 49, 43), xlim = c(0, 100), model="gompertz")
# Coefficient N0 is 0.14 and the confidence interval is (0.13, 0.15)
# Coefficient Nmax is 1.43 and the confidence interval is (1.43, 1.43)
# Coefficient mu is 0.07 and the confidence interval is (0.05, 0.09)
# Coefficient lambda is 45 and the confidence interval is (43, 49)
Run the code above in your browser using DataLab