diff --git a/R/get_statistic.R b/R/get_statistic.R index b67a488d1..e5e6dd815 100644 --- a/R/get_statistic.R +++ b/R/get_statistic.R @@ -198,7 +198,7 @@ get_statistic.merModList <- function(x, ...) { get_statistic.afex_aov <- function(x, ...) { out <- data.frame( Parameter = rownames(x$anova_table), - Statistic = x$anova_table$`F`, + Statistic = x$anova_table[["F"]], stringsAsFactors = FALSE, row.names = NULL ) diff --git a/tests/testthat/test-coxme.R b/tests/testthat/test-coxme.R index e211a94e0..8b7082410 100644 --- a/tests/testthat/test-coxme.R +++ b/tests/testthat/test-coxme.R @@ -183,6 +183,5 @@ withr::with_environment( expect_identical(find_statistic(m1), "z-statistic") expect_identical(find_statistic(m2), "z-statistic") }) - } )