## growthmodel-method
names(grow_baranyi)
## multiple_fits-method
L <- all_splines(value ~ time | strain + conc + replicate,
data = bactgrowth)
names(L)
## plot only the 'R' strain
par(mfrow=c(4, 6))
plot(L[grep("R:", names(L))])
Run the code above in your browser using DataLab