Nothing
getFittedMatrix <- function(fit) {
fitted <- do.call(rbind, lapply(fit$individuals, function(ind) t(ind$xi %*% fit$coefficients)))
rownames(fitted) <- paste0("ind", seq(fit$info$N))
return(fitted)
}
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.