Merge branch 'main' into chi2_method

easystats · Sep 24, 2023 · 1c7bb8c · 1c7bb8c
2 parents e4968eb + b796218
commit 1c7bb8c
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/R/report.lm.R b/R/report.lm.R
@@ -99,21 +99,18 @@ report_effectsize.lm <- function(x, effectsize_method = "refit", ...) {
 
   if ("Component" %in% colnames(table)) {
     merge_by <- c("Parameter", "Component")
-    start_col <- 4
+    start_col <- 4L
   } else {
     merge_by <- "Parameter"
-    start_col <- 3
+    start_col <- 3L
   }
 
   table <- as.data.frame(table)[c(merge_by, estimate, "CI_low", "CI_high")]
   names(table)[start_col:ncol(table)] <- c(paste0(estimate, "_CI_low"), paste0(estimate, "_CI_high"))
 
-
   rules <- .text_effectsize(attr(attr(interpret, "rules"), "rule_name"))
   parameters <- paste0(interpretation, " (", statistics, ")")
 
-
-
   as.report_effectsize(parameters,
     summary = parameters,
     table = table,