Skip to content

Commit

Permalink
fix
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke committed Aug 10, 2023
1 parent d2d38b8 commit 1140fa9
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions R/means_by_group.R
Original file line number Diff line number Diff line change
Expand Up @@ -242,14 +242,14 @@ print.dw_groupmeans <- function(x, digits = NULL, ...) {

# footer
footer <- paste0(
"\nAnova: R2=", insight::format_value(attributes(out)$r2, digits = 3),
"; adj.R2=", insight::format_value(attributes(out)$adj.r2, digits = 3),
"; F=", insight::format_value(attributes(out)$fstat, digits = 3),
"; ", insight::format_p(attributes(out)$p.value, whitespace = FALSE),
"\nAnova: R2=", insight::format_value(attributes(x)$r2, digits = 3),
"; adj.R2=", insight::format_value(attributes(x)$adj.r2, digits = 3),
"; F=", insight::format_value(attributes(x)$fstat, digits = 3),
"; ", insight::format_p(attributes(x)$p.value, whitespace = FALSE),
"\n"
)

cat(insight::export_table(x, caption = caption, footer = footer, ...))
cat(insight::export_table(out, caption = caption, footer = footer, ...))
}

#' @export
Expand Down

0 comments on commit 1140fa9

Please sign in to comment.