if (FALSE) { # identical(Sys.getenv("NOT_CRAN"), "true")
# ----------------------- within-subjects -------------------------------------
# data
df <- dplyr::filter(bugs_long, condition %in% c("LDLF", "LDHF"))
# for reproducibility
set.seed(123)
# ----------------------- parametric ---------------------------------------
two_sample_test(
df,
condition,
desire,
subject.id = subject,
paired = TRUE,
type = "parametric"
)
# ----------------------- non-parametric -----------------------------------
two_sample_test(
df,
condition,
desire,
subject.id = subject,
paired = TRUE,
type = "nonparametric"
)
# ----------------------- robust --------------------------------------------
two_sample_test(
df,
condition,
desire,
subject.id = subject,
paired = TRUE,
type = "robust"
)
# ----------------------- Bayesian ---------------------------------------
two_sample_test(
df,
condition,
desire,
subject.id = subject,
paired = TRUE,
type = "bayes"
)
# ----------------------- between-subjects -------------------------------------
# for reproducibility
set.seed(123)
# ----------------------- parametric ---------------------------------------
# unequal variance
two_sample_test(ToothGrowth, supp, len, type = "parametric")
# equal variance
two_sample_test(ToothGrowth, supp, len, type = "parametric", var.equal = TRUE)
# biased (Cohen's d) effect size
two_sample_test(ToothGrowth, supp, len, type = "parametric", effsize.type = "d")
# ----------------------- non-parametric -----------------------------------
two_sample_test(ToothGrowth, supp, len, type = "nonparametric")
# ----------------------- robust --------------------------------------------
two_sample_test(ToothGrowth, supp, len, type = "robust")
# ----------------------- Bayesian ---------------------------------------
two_sample_test(ToothGrowth, supp, len, type = "bayes")
}
Run the code above in your browser using DataLab