Nothing
margK <-
function(m){
n <- dim(m)
dimnames(m) <- NULL
if(length(n) == 3) {
n1 <- n[1] * n[2]
dim(m) <- c(n1, n[3])
mm <- apply(m, 2, sum)
} else {
cat(" Wrong dimension m")
return(0)
}
}
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.