Nothing
getResidualMatrix <- function(fit) {
responseMatrix <- do.call(rbind, lapply(fit$individuals, function(ind) t(ind$yi)))
residuals <- responseMatrix - fit$fitted
rownames(residuals) <- paste0("ind", seq(fit$info$N))
return(residuals)
}
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.