Fix to checks on formula variables

tsmodels · May 25, 2023 · 477ee66 · 477ee66
1 parent 5d6d41b
commit 477ee66
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/mgcv-model.R b/R/mgcv-model.R
@@ -35,8 +35,8 @@ gam_modelspec <- function(formula, data, family = gaussian(link = "identity"), .
   }
   data_vars <- colnames(data)
   data <- data[,c(response_var,formula_vars)]
-  check <- formula_vars %in% colnames(data)
-  if (!check) stop("\ndata variables do not match formula variables/")
+  check <- all(formula_vars %in% colnames(data))
+  if (!check) stop("\ndata variables do not match formula variables.")
   time_zone <- tzone(index(data))
   spec <- list()
   spec$formula <- formula