# NOT RUN {
#---------------- two-sample test ------------------------------------
# creating a smaller dataset
msleep_short <- dplyr::filter(
.data = ggplot2::msleep,
vore %in% c("carni", "herbi")
)
# with defaults
tobj1 <- t.test(
formula = sleep_rem ~ vore,
data = msleep_short
)
ggstatsplot:::effsize_t_parametric(
formula = sleep_rem ~ vore,
data = msleep_short,
tobject = tobj1
)
# changing defaults
tobj2 <- t.test(
formula = sleep_rem ~ vore,
data = msleep_short,
mu = 1,
paired = FALSE,
conf.level = .99
)
ggstatsplot:::effsize_t_parametric(
formula = sleep_rem ~ vore,
data = msleep_short,
mu = 1, # ignored in this case
paired = FALSE,
hedges.correction = TRUE,
conf.level = .99,
noncentral = FALSE,
tobject = tobj2
)
#---------------- one-sample test ------------------------------------
tobj3 <- t.test(
x = msleep_short$sleep_rem,
mu = 2,
conf.level = .90
)
ggstatsplot:::effsize_t_parametric(
formula = ~sleep_rem,
data = msleep_short,
mu = 2,
hedges.correction = TRUE,
conf.level = .90,
noncentral = TRUE,
tobject = tobj3
)
# }
Run the code above in your browser using DataCamp Workspace