Nothing
print.fit_lin <- function(x, ...) {
cat("Results of fitting population models \n\n")
# print(x$header, ...)
cat("Stats:\n")
print(x$Stats, ...)
cat("\n Infection rate:\n")
print(x$`Infection rate`, ...)
cat("\n Initial inoculum:\n")
print(x$`Initial inoculum`, ...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.