Nothing
##' @export
estimate.list <- function(x,...) {
if (inherits(x[[1]],"lvm")) return(estimate_lvmlist(x,...))
res <- lapply(x,function(x) estimate(x,...))
class(res) <- c("estimate.list","list")
res
}
##' @export
coef.estimate.list <- function(object,...) {
lapply(object,coef)
}
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.