From b796218fa6ba7f75bd2e636e0805929bcdec32e0 Mon Sep 17 00:00:00 2001 From: Indrajeet Patil Date: Sun, 24 Sep 2023 13:06:32 +0200 Subject: [PATCH] to trigger CI --- R/report.lm.R | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/R/report.lm.R b/R/report.lm.R index a86642f2..b13449eb 100644 --- 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,