diff --git a/R/OmicSelector_create_formula.R b/R/OmicSelector_create_formula.R index 1c8863a..aeadbdc 100644 --- a/R/OmicSelector_create_formula.R +++ b/R/OmicSelector_create_formula.R @@ -7,7 +7,7 @@ #' #' @export OmicSelector_create_formula = function(selected_features) { - if(selected_features == "." || length(selected_features) ==0 ) { stop("Too few features selected.") } + if(selected_features[1] == "." || length(selected_features) ==0 ) { stop("Too few features selected.") } selected_features<-selected_features[!is.na(selected_features)] as.formula(paste0("Class ~ ",paste0(as.character(selected_features), collapse = " + "))) }