R/chisqClassSplitted.R

chisqClassSplitted<-function(data,cl,n.cat,n.split,check=TRUE,withNA=FALSE){
	n.row<-nrow(data)
	ints<-round(seq(1,n.row+1,le=n.split+1))
	ints<-unique(ints)
	stats<-numeric(n.row)
	for(i in 1:n.split)
		stats[ints[i]:(ints[i+1]-1)] <- chisqClass(data[ints[i]:(ints[i+1]-1),],
			cl,n.cat,check=check, withNA=withNA)
	stats
}

Try the siggenes package in your browser

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

siggenes documentation built on May 6, 2019, 2:38 a.m.