ms: bug fix on the length of non numeric variables. now we can run it…

…nercept with one categorical variable
braverock · Oct 12, 2021 · 603d7eb · 603d7eb
1 parent f57eb9f
commit 603d7eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fitFfm.R b/R/fitFfm.R
@@ -285,7 +285,7 @@ fitFfm <- function(data, asset.var, ret.var, date.var, exposure.vars,
 
 
   # check number & type of exposure; convert character exposures to dummy vars
-  which.numeric <- sapply(data[,  exposure.vars], is.numeric)
+  which.numeric <- sapply(data[,exposure.vars,drop=FALSE], is.numeric)
   exposures.num <- exposure.vars[which.numeric]
   exposures.char <- exposure.vars[!which.numeric]
   if ((length(exposures.char) > 1) && !addIntercept) {