R/compVarLevs.R

Defines functions `compVarLevs`

`compVarLevs` <-
function(listX){
	listX<-lapply(listX,function(x) rowSums(x)>0)
	catX<-matrix(unlist(listX),ncol=length(listX))
	rowSums(catX)
}

Try the scrime package in your browser

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

scrime documentation built on May 2, 2019, 10:24 a.m.