R/checkfac.R

In SamGG/made4: Multivariate analysis of microarray data using ADE4

"checkfac" <-
function(classvec){
        if (!is.factor(classvec))classvec<-factor(classvec)
        if (!is.factor(classvec))
		stop("Problems reading factor classvec")
        return(classvec)
        }