Nothing
fcons <-
function(indices,k){
samp<-c()
dim.ind<-dim(indices)
for(i in 1:(dim.ind[2])){
if (length(unique(indices[,i]))<=k)
samp<-c(samp,i)
}
indices.fil<-indices[,-samp]
indices.fil
}
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.