Merge pull request #20 from m-clark/issue18

issue #18

Author: m-clark

DESCRIPTION

@@ -27,6 +27,7 @@ Suggests:
   rstanarm,
   brms,
   pbkrtest,
+  lmerTest,
   covr,
   knitr,
   rmarkdown

NEWS.md

@@ -1,3 +1,7 @@
+# mixedup 0.3.8
+
+* Minor bug fixes (issues #14-15), enhancements (#16-17), and other issues (e.g. #18).
+
 # mixedup 0.3.7
 
 * Extend exponentiate to summarize_model, extend extract_random_effects to multivariate models, minor fixes (e.g. issue #12).

R/extract_fixed_effects.R

@@ -79,12 +79,15 @@ extract_fixed_effects.merMod <-
     p_value = 'Wald'
   ) {
 
+    if (class(model) == "lmerModLmerTest")
+      stop('Only some functions work with lmerTest. This is not one of them.
+           Rerun your model with lme4::lmer instead.')
+
     if (!p_value %in% c('Wald', 'Satterthwaite', 'KR')) {
       warning("p_value must be one of 'Wald' or 'KR', switching to 'Wald'")
       p_value = 'Wald'
     }
 
-
     # do term now otherwise you can lose rownames if ci_level = 0
     fe <- data.frame(stats::coef(summary(model))) %>%
       dplyr::mutate(term = rownames(.)) %>%

codemeta.json

@@ -16,7 +16,7 @@
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.0.2 (2020-06-22)",
+  "runtimePlatform": "R version 4.0.3 (2020-10-10)",
   "author": [
     {
       "@type": "Person",
@@ -134,6 +134,18 @@
       },
       "sameAs": "https://CRAN.R-project.org/package=pbkrtest"
     },
+    {
+      "@type": "SoftwareApplication",
+      "identifier": "lmerTest",
+      "name": "lmerTest",
+      "provider": {
+        "@id": "https://cran.r-project.org",
+        "@type": "Organization",
+        "name": "Comprehensive R Archive Network (CRAN)",
+        "url": "https://cran.r-project.org"
+      },
+      "sameAs": "https://CRAN.R-project.org/package=lmerTest"
+    },
     {
       "@type": "SoftwareApplication",
       "identifier": "covr",
@@ -217,7 +229,7 @@
     }
   ],
   "releaseNotes": "https://github.com/m-clark/mixedup/blob/master/NEWS.md",
-  "fileSize": "40467.364KB",
+  "fileSize": "40533.875KB",
   "contIntegration": "https://codecov.io/gh/m-clark/mixedup?branch=master",
   "developmentStatus": "https://www.tidyverse.org/lifecycle/#maturing",
   "keywords": [

tests/testthat/test-extract_fixed_effects.R

@@ -82,6 +82,10 @@ test_that('extract_fixed_effects.merMod is null if no covariates', {
   expect_null(extract_fixed_effects(lme4::lmer(Reaction ~ -1 + (1|Subject), lme4::sleepstudy)))
 })
 
+test_that('extract_fixed_effects.merMod fails with lmerTest model', {
+  expect_error(extract_fixed_effects(lmerTest::lmer(Reaction ~ Days + (1|Subject), lme4::sleepstudy)))
+})
+
 
 # Test glmmTMB ------------------------------------------------------------