#109

easystats · Nov 8, 2020 · a4d32b2 · a4d32b2
1 parent dc79a68
commit a4d32b2
Show file tree

Hide file tree

Showing 3 changed files with 56 additions and 0 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -73,6 +73,7 @@ Collate:
     'report.factor.R'
     'report.glm.R'
     'report.glmmTMB.R'
+    'report.lme.R'
     'report.lme4.R'
     'report.numeric.R'
     'report.sessionInfo.R'

diff --git a/NAMESPACE b/NAMESPACE
@@ -34,6 +34,7 @@ S3method(report,glmmTMB)
 S3method(report,grouped_df)
 S3method(report,htest)
 S3method(report,lm)
+S3method(report,lme)
 S3method(report,logical)
 S3method(report,merMod)
 S3method(report,numeric)
@@ -50,6 +51,7 @@ S3method(report_effectsize,glm)
 S3method(report_effectsize,glmmTMB)
 S3method(report_effectsize,htest)
 S3method(report_effectsize,lm)
+S3method(report_effectsize,lme)
 S3method(report_effectsize,merMod)
 S3method(report_effectsize,stanreg)
 S3method(report_effectsize,survreg)
@@ -63,6 +65,7 @@ S3method(report_info,glm)
 S3method(report_info,glmmTMB)
 S3method(report_info,htest)
 S3method(report_info,lm)
+S3method(report_info,lme)
 S3method(report_info,merMod)
 S3method(report_info,stanreg)
 S3method(report_info,survreg)
@@ -72,6 +75,7 @@ S3method(report_intercept,default)
 S3method(report_intercept,glm)
 S3method(report_intercept,glmmTMB)
 S3method(report_intercept,lm)
+S3method(report_intercept,lme)
 S3method(report_intercept,merMod)
 S3method(report_intercept,stanreg)
 S3method(report_intercept,survreg)
@@ -85,6 +89,7 @@ S3method(report_model,glm)
 S3method(report_model,glmmTMB)
 S3method(report_model,htest)
 S3method(report_model,lm)
+S3method(report_model,lme)
 S3method(report_model,merMod)
 S3method(report_model,stanreg)
 S3method(report_model,survreg)
@@ -102,6 +107,7 @@ S3method(report_parameters,glmmTMB)
 S3method(report_parameters,grouped_df)
 S3method(report_parameters,htest)
 S3method(report_parameters,lm)
+S3method(report_parameters,lme)
 S3method(report_parameters,logical)
 S3method(report_parameters,merMod)
 S3method(report_parameters,numeric)
@@ -114,6 +120,7 @@ S3method(report_performance,default)
 S3method(report_performance,glm)
 S3method(report_performance,glmmTMB)
 S3method(report_performance,lm)
+S3method(report_performance,lme)
 S3method(report_performance,merMod)
 S3method(report_performance,stanreg)
 S3method(report_performance,survreg)
@@ -123,6 +130,7 @@ S3method(report_priors,stanreg)
 S3method(report_random,MixMod)
 S3method(report_random,default)
 S3method(report_random,glmmTMB)
+S3method(report_random,lme)
 S3method(report_random,merMod)
 S3method(report_random,stanreg)
 S3method(report_statistics,MixMod)
@@ -138,6 +146,7 @@ S3method(report_statistics,glmmTMB)
 S3method(report_statistics,grouped_df)
 S3method(report_statistics,htest)
 S3method(report_statistics,lm)
+S3method(report_statistics,lme)
 S3method(report_statistics,merMod)
 S3method(report_statistics,numeric)
 S3method(report_statistics,stanreg)
@@ -158,6 +167,7 @@ S3method(report_table,glmmTMB)
 S3method(report_table,grouped_df)
 S3method(report_table,htest)
 S3method(report_table,lm)
+S3method(report_table,lme)
 S3method(report_table,logical)
 S3method(report_table,merMod)
 S3method(report_table,numeric)
@@ -180,6 +190,7 @@ S3method(report_text,glmmTMB)
 S3method(report_text,grouped_df)
 S3method(report_text,htest)
 S3method(report_text,lm)
+S3method(report_text,lme)
 S3method(report_text,logical)
 S3method(report_text,merMod)
 S3method(report_text,numeric)

diff --git a/R/report.lme.R b/R/report.lme.R
@@ -0,0 +1,44 @@
+#' @include report.lm.R
+#' @export
+report.lme <- report.lm
+
+#' @export
+report_effectsize.lme <- report_effectsize.lm
+
+#' @export
+report_table.lme <- report_table.lm
+
+#' @export
+report_performance.lme <- report_performance.lm
+
+#' @export
+report_statistics.lme <- report_statistics.lm
+
+#' @export
+report_parameters.lme <- report_parameters.lm
+
+#' @export
+report_intercept.lme <- report_intercept.lm
+
+#' @export
+report_random.lme <- function(x, ...) {
+  random_terms <- insight::find_terms(x)$random
+  if (!is.null(random_terms)) {
+    text <- format_text(random_terms)
+    text <- paste0("The model included ", text, " as random effect")
+    text <- ifelse(length(random_terms) > 1, paste0(text, "s"), text)
+    text_full <- paste0(text, " (", format_formula(x, "random"), ")")
+  }
+
+  as.report_random(text_full, summary = text, ...)
+}
+
+
+#' @export
+report_model.lme <- report_model.lm
+
+#' @export
+report_info.lme <- report_info.lm
+
+#' @export
+report_text.lme <- report_text.lm