Nothing
lmLSE <- function(D, Y){
beta <- (MASS::ginv(t(Y) %*% Y)) %*% t(Y) %*% D
L <- lmSS(beta, D, Y)$L
return(list("L" = L, "beta" = beta))
}
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.