Closed xmarti6 closed 4 years ago
Thanks, I can confirm that this is a bug coming from upstream in statsExpressions
:
set.seed(123)
dfEx <-
data.frame(cat1 = rep(c("A", "B"), 10),
cat2 = c(rep("C", 10), rep("D", 10)))
statsExpressions::expr_contingency_tab(
data = dfEx,
x = cat1,
y = cat2,
paired = T,
nboot = 10
)
#> Error in if (const(t, min(1e-08, mean(t, na.rm = TRUE)/1e+06))) {: missing value where TRUE/FALSE needed
Traceback
Error in if (const(t, min(1e-08, mean(t, na.rm = TRUE)/1e+06))) { :
missing value where TRUE/FALSE needed
6.
boot.ci(Boot, conf = conf, type = type)
5.
rcompanion::cohenG(x = x_arg, ci = TRUE, conf = conf.level, type = conf.type,
R = nboot, histogram = FALSE, digits = 5)
4.
eval(lhs, parent, parent)
3.
eval(lhs, parent, parent)
2.
rcompanion::cohenG(x = x_arg, ci = TRUE, conf = conf.level, type = conf.type,
R = nboot, histogram = FALSE, digits = 5)$Global.statistics %>%
rcompanion_cleaner(object = ., estimate.col = "Value") %>%
dplyr::filter(.data = ., Statistic == "g") at helpers_contingency_tabs_expressions.R#245
1.
statsExpressions::expr_contingency_tab(data = dfEx, x = cat1,
y = cat2, paired = T, nboot = 10)
Created on 2019-10-09 by the reprex package (v0.3.0)
dfEx <-
data.frame(cat1 = rep(c("A", "B"), 10),
cat2 = c(rep("C", 10), rep("D", 10)))
# subtitle
statsExpressions::expr_contingency_tab(
data = dfEx,
x = cat1,
y = cat2,
paired = TRUE,
nboot = 10,
messages = FALSE
)
#> paste(NULL, chi["McNemar"]^2, "(", "1", ") = ", "0.00", ", ",
#> italic("p"), " = ", "1.000", ", ", widehat(italic("g"))["Cohen"],
#> " = ", "0.00", ", CI"["95%"], " [", "-0.27", ", ", "0.39",
#> "]", ", ", italic("n")["pairs"], " = ", 20L)
Created on 2019-12-27 by the reprex package (v0.3.0)
The same issue reoccur in ggstatsplot v0.12.1.
Seems like stats are not shown when paired option is enabled (using ggstatsplot "v0.1.2") Cheers
Created on 2019-10-08 by the reprex package (v0.3.0)