Nothing
"F.cjs.covars" <-
function(nan, ns){
x <- rep( diag(ns), rep(nan, ns*ns) )
dim(x) <- c(nan, ns, ns)
dimnames(x) <- list( NULL, paste("Trap",1:ns), paste("X",1:ns, sep="") )
ans <- list( x=x )
ans
}
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.