R/texpoDesignCheck.R

In TExPosition: Two-Table ExPosition

texpoDesignCheck <-
function(DATA=NULL,DESIGN=NULL,make_design_nominal=TRUE,force_bary = FALSE){
	
	
	if(!is.null(DATA)){ #this is a short cut and failsafe for all TEx Methods. PLS can go through, but barycentric methods must also pass the tests below.
		DESIGN<-designCheck(DATA,DESIGN,make_design_nominal)
	}
	if(force_bary){	
		if(ncol(DESIGN) >= nrow(DESIGN)){
			stop('You have too many groups, try a method in ExPosition.')
		}
		if(ncol(DESIGN)==1){
			stop('You have too few groups, try a method in ExPosition.')		
		}
		if(!sum(colSums(DESIGN)>1)==ncol(DESIGN)){
			#this might be too stringent...
			stop('You have at least 1 group made up of only 1 observation, try a method in ExPosition.')
		}
	}
	return(DESIGN)
}