Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
message = FALSE,
warning = FALSE
)
options(digits = 3)
## -----------------------------------------------------------------------------
library(rstatix)
library(dplyr)
## -----------------------------------------------------------------------------
df <- ToothGrowth
df$dose <- factor(df$dose)
head(df)
## -----------------------------------------------------------------------------
df %>%
group_by(dose) %>%
get_summary_stats(len, type = "mean_sd")
## -----------------------------------------------------------------------------
df %>% check_test_assumptions(len ~ dose)
## -----------------------------------------------------------------------------
df %>% anova_test(len ~ dose, effect.size = "pes", ci = 0.95)
## -----------------------------------------------------------------------------
df %>% posthoc_test(len ~ dose)
## -----------------------------------------------------------------------------
df %>% cohens_d(len ~ dose)
## -----------------------------------------------------------------------------
model <- df %>% anova_test(len ~ dose, effect.size = "pes", ci = 0.95)
get_test_label(model, type = "text", style = "apa")
## -----------------------------------------------------------------------------
df %>% anova_test(len ~ dose) %>% tidy()
df %>% anova_test(len ~ dose) %>% glance()
## -----------------------------------------------------------------------------
df %>%
group_by(dose) %>%
t_test(len ~ supp) %>%
adjust_pvalue(method = "holm") %>%
add_significance()
## -----------------------------------------------------------------------------
sessionInfo()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.