Nothing
listmat <-
function(x){el<-unique(unlist(x))
Mat<-matrix(rep(el,length(x)),nrow=length(x),byrow=TRUE)
for (i in 1:nrow(Mat)){
for (j in 1:ncol(Mat)){
Mat[i,j]<-ifelse(Mat[i,j]%in%x[[i]],0,Inf)
}
}
Mat<-apply(Mat,2,as.numeric);Mat
return(Mat)}
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.