Nothing
XexXen <-
function(N,n,ind.ex,ind.en,x.ex,x.en)
{
x <- array(matrix(0,n,ind.ex+ind.en),dim=c(n,ind.ex+ind.en,N))
dimnames(x) <- list(1:n,c(paste("ind.ex",1:ind.ex,sep=""),paste("ind.en",1:ind.en,sep="")),1:N)
x <- abind(x.ex,x.en,along=2)
list(x=x)
}
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.