Nothing
print.flimList <-
function(x, ...) {
models <- x$models
for(k in 1:length(models)) {
cat("Call:\n")
cat(" Model: ")
print(models[[k]], showEnv=F)
cat(" Data: ")
print(x$flim.obj$call$data)
cat(" Times (t): ")
cat(x$flim.obj$times[1:(length(x$flim.obj$times)-1)], "\n")
if(!is.null(x$flim.obj$lambda)) {
cat(" lambda: ")
cat(x$flim.obj$lambda, "\n")
}
cat("\n Coefficients:\n")
print(x$est.list[[k]])
cat("\n")
}
}
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.