Merge pull request #85 from HugoNjb/FindBestModel

#83
neuropsychology · Aug 28, 2018 · 053e8d5 · 053e8d5
2 parents 42da950 + 08c020c
commit 053e8d5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/find_best_model.lmerModLmerTest.R b/R/find_best_model.lmerModLmerTest.R
@@ -38,7 +38,7 @@ find_best_model.lmerModLmerTest <- function(fit, interaction=TRUE, fixed=NULL, .
 
 
   # Recreating the dataset without NA
-  dataComplete <- get_all_vars(fit)[complete.cases(get_all_vars(fit)), ]
+  dataComplete <- fit@frame[complete.cases(fit@frame), ]
 
 
   # fit models
@@ -79,4 +79,4 @@ find_best_model.lmerModLmerTest <- function(fit, interaction=TRUE, fixed=NULL, .
 
   best <- list(formula = best, by_criterion = by_criterion, table = comparison)
   return(best)
-}
+}