Nothing
plot.smoothagesccs <- function(x, type="l", ...) {
fit <- x
graphics::plot(fit$ageaxis, fit$age, type=type, ylab = "relative incidence", xlab = "age (days)")
}
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.