R/check4Monomorphism.R

In scrime: Analysis of High-Dimensional Categorical Data Such as SNP Data

Defines functions check4Monomorphism

Documented in check4Monomorphism

check4Monomorphism<-function(x){
	mx<-max(x,na.rm=TRUE)
	n<-rowSums(!is.na(x))
	for(i in 1:mx){
		rs<-rowSums(x==i,na.rm=TRUE)==n
		if(any(rs))
			stop("All variables must show at least two levels.")
	}
}


	

Try the scrime package in your browser