debug to_be_tested

livioivil · Sep 23, 2024 · 1f76861 · 1f76861
1 parent cfde632
commit 1f76861
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/flipscores.R b/R/flipscores.R
@@ -155,9 +155,8 @@ flipscores<-function(formula, family, data,
   if(is.null(to_be_tested))
     to_be_tested=colnames(model[["x"]]) else 
       {
-      to_be_tested = ifelse(is.numeric(to_be_tested),
-                         colnames(model[["x"]])[to_be_tested],
-                         to_be_tested)
+        if(is.numeric(to_be_tested))
+          to_be_tested = colnames(model[["x"]])[to_be_tested]
 
       to_be_tested=eval(to_be_tested,parent.frame())
       }