Nothing
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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.