# \donttest{
data(mtcars)
mtcars$am <- factor(mtcars$am)
mtcars$cyl <- factor(mtcars$cyl)
# Two Independent Samples ----------
(rb <- rank_biserial(mpg ~ am, data = mtcars))
# Same as:
# rank_biserial("mpg", "am", data = mtcars)
# rank_biserial(mtcars$mpg[mtcars$am=="0"], mtcars$mpg[mtcars$am=="1"])
# cliffs_delta(mpg ~ am, data = mtcars)
# More options:
rank_biserial(mpg ~ am, data = mtcars, mu = -5)
print(rb, append_CLES = TRUE)
# One Sample ----------
# from help("wilcox.test")
x <- c(1.83, 0.50, 1.62, 2.48, 1.68, 1.88, 1.55, 3.06, 1.30)
y <- c(0.878, 0.647, 0.598, 2.05, 1.06, 1.29, 1.06, 3.14, 1.29)
depression <- data.frame(first = x, second = y, change = y - x)
rank_biserial(change ~ 1, data = depression)
# same as:
# rank_biserial("change", data = depression)
# rank_biserial(mtcars$wt)
# More options:
rank_biserial(change ~ 1, data = depression, mu = -0.5)
# Paired Samples ----------
(rb <- rank_biserial(Pair(first, second) ~ 1, data = depression))
# same as:
# rank_biserial(depression$first, depression$second, paired = TRUE)
interpret_rank_biserial(0.78)
interpret(rb, rules = "funder2019")
# }
Run the code above in your browser using DataLab