# NOT RUN {
# empirically observed r = .76, expected r = .70,
# sample size n = 271, alpha level = .05 (default)
diffcor.one(.76, .70, 271, cor.names = NULL, alternative = "two.sided")
# works also with a dataframe of correlations.
diffcor.one(c(.76, .53, -.32), c(.70, .35, -.40),
c(225, 250, 210),
cor.names = c("a-b", "c-d", "e-f"), digit = 2, alternative = "one.sided")
# same applies to the functions diffcor.two() and diffcor.dep()
diffcor.two(r1 = .76, r2 = .70, n1 = 271, n2 = 323,
cor.names = NULL, alternative = "one.sided", alpha = .10)
diffcor.two(r1 = c(.39, .52, .22),
r2 = c(.29, .44, .12),
n1 = c(66, 66, 66), n2 = c(96, 96, 96),
cor.names = c("a-b", "c-d", "e-f"), alternative = "one.sided")
diffcor.two(r1 = c(.39, .52, .22),
r2 = c(.29, .44, .12),
n1 = c(66, 66, 66),
n2 = c(96, 96, 96),
cor.names = NULL, bonferroni = FALSE, alternative = "one.sided")
diffcor.dep(r12 = .76, r13 = .70, r23 = .50, n = 271, digit = 4,
cor.names = NULL, alternative = "two.sided")
diffcor.dep(r12 = c(.76, .54, .22),
r13 = c(.24, .01, .07), r23 = c(.25, .65, .90),
n = c(500, 392, 92), cor.names = c("a-b", "c-d", "e-f"),
alternative = "one.sided", bonferroni = FALSE, alpha = .01)
diffcor.dep(r12 = c(.76, .54, .22),
r13 = c(.24, .01, .07),
r23 = c(.25, .65, .90),
n = c(500, 392, 92), cor.names = NULL,
alternative = "one.sided", bonferroni = TRUE)
# }
Run the code above in your browser using DataLab