ssdms: fix ssdm methods

Author: elgabbas

inst/fda2.R

@@ -16,7 +16,7 @@ methodInfo <- list(
     df <- as.data.frame(data)
     resp <- all.vars(formula)[1]
     df[[resp]] <- factor(df[[resp]], levels = c(0, 1))
-    mda::fda(formula = formula, data = df, ...)
+    mda::fda(formula = as.formula(formula), data = df, ...)
   },
   settingRules = NULL,
   tuneParams = list(method = substitute(c(polyreg, mars, gen.ridge, bruto))),

inst/mda2.R

@@ -15,7 +15,7 @@ methodInfo <- list(
     df <- as.data.frame(data)
     resp <- all.vars(formula)[1]
     df[[resp]] <- factor(df[[resp]], levels = c(0, 1))
-    mda::mda(formula = formula, data = df, ...)
+    mda::mda(formula = as.formula(formula), data = df, ...)
   },
   settingRules = NULL,
   tuneParams = list(method = substitute(c(polyreg, mars, gen.ridge, bruto))),

inst/ranger2.R

@@ -17,7 +17,7 @@ methodInfo <- list(
     df <- as.data.frame(data)
     resp <- all.vars(formula)[1]
     df[[resp]] <- factor(df[[resp]], levels = c(0, 1))
-    ranger::ranger(formula = formula, data = df, ...)
+    ranger::ranger(formula = as.formula(formula), data = df, ...)
   },
   settingRules = NULL,
   tuneParams = NULL,

inst/rf2.R

@@ -17,7 +17,7 @@ methodInfo <- list(
     df <- as.data.frame(data)
     resp <- all.vars(formula)[1]
     df[[resp]] <- factor(df[[resp]], levels = c(0, 1))
-    randomForest::randomForest(formula = formula, data = df, ...)
+    randomForest::randomForest(formula = as.formula(formula), data = df, ...)
   },
 
   settingRules = NULL,