Nothing
EnLVs <-
function(N,n,ben,bet,elv,y.ex.tot)
{
bet <- as.matrix(bet)
y.en <- array(matrix(0,n,ben),dim=c(n,ben,N),dimnames=list(1:n,paste("y.en",1:ben,sep=""),1:N))
for (i in 1:N) y.en[,ben,i] <- y.ex.tot[,,i]%*%bet+elv[,,i]
list(y.en=y.en)
}
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.