Nothing
mergeCols <-
function(n,minimum=2){
for (j in length(n[1,]):1){
if(is.null(dim(n))) return(0)
if(sum(n[,j])<=minimum) {
if(j>1) {
n[,j-1] <- n[,j-1]+n[,j]
n <- n[,-j]
}else{
if(dim(n)[2]>1){
n[,2] <- n[,2]+n[,1]
n <- n[,-1]
}else return(0)
}
}
}
return(n)
}
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.