R/validData.R

In gaselect: Genetic Algorithm (GA) for Variable Selection from High-Dimensional Data

#' Check if the data is valid for the evaluator
#'
#' This method checks if the covariates matrix is valid for the evaluator
#'
#' @param object The evaluator
#' @param genAlg The GenAlg object the evaluator is used in
#' @docType methods
#' @include Evaluator.R genAlg.R
#' @rdname validData-methods
setGeneric("validData", function(object, genAlg) { standardGeneric("validData"); });

#' @rdname validData-methods
setMethod("validData", signature(object = "GenAlgPLSEvaluator", genAlg = "GenAlg"), function(object, genAlg) {
	if(is.numeric(genAlg@covariates)) {
		return(TRUE);
	} else {
		return("The covariates have to be numerical");
	}
});
#' @rdname validData-methods
setMethod("validData", signature(object = "GenAlgFitEvaluator", genAlg = "GenAlg"), function(object, genAlg) {
	if(is.numeric(genAlg@covariates)) {
		return(TRUE);
	} else {
		return("The covariates have to be numerical");
	}
});

#' @rdname validData-methods
setMethod("validData", signature(object = "GenAlgLMEvaluator", genAlg = "GenAlg"), function(object, genAlg) {
	if(genAlg@control@maxVariables < nrow(genAlg@covariates)) {
		return(TRUE);
	} else {
		return("It is not possible to use a linear model if maxVariables is greater than the number of observations.");
	}
});

#' @rdname validData-methods
setMethod("validData", signature(object = "GenAlgEvaluator", genAlg = "GenAlg"), function(object, genAlg) {
	return(TRUE);
});