R/fcons.R

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
}

Try the omd package in your browser

Any scripts or data that you put into this service are public.

omd documentation built on May 2, 2019, 9:33 a.m.