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)
# ----------------------- 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