Nothing
gfunction.bet.lam.lm <- function(g.bet, lam){
n <- nrow(g.bet[[1]])
nalp <- length(g.bet)
g.bet.lam <- matrix(NA, nrow = n, ncol = nalp)
k <- 0
for(m in g.bet){
k <- k + 1
g.bet.lam[, k] <- m %*% lam
}
g.bet.lam
}
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.