Nothing
"kimar" <-
function (ik=2,BE=.QKEP) {
#SUM OVER THE ik-TH VARIABLES
NC <- length(dim(BE))
A <- c(1:NC)
KI <- apply(BE,A[-ik],sum)
return(KI)
}
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.