Nothing
`compVarLevs` <-
function(listX){
listX<-lapply(listX,function(x) rowSums(x)>0)
catX<-matrix(unlist(listX),ncol=length(listX))
rowSums(catX)
}
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.