Nothing
summary.genfrail <- function(object, ...) {
dat <- object
s <- append(attributes(dat), list(
n.obs=length(dat$time),
n.clusters=length(unique(dat$family)),
mean.cluster=mean(table(dat$family)),
censor.rate=1 - sum(dat$status)/length(dat$time)
))
class(s) <- "summary.genfrail"
s
}
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.