a <- rnorm(100)
b <- rnorm(100) * .75 + a * .25
pprint(cor.test(a, b), format = "cor.test")
pprint(cor.test(a, b, method = "kendall"), format = "cor.test")
pprint(cor.test(a, b, method = "spearman"), format = "cor.test")
pprint(cor.test(a, b),
format = "cor.test",
print.statistic = TRUE)
pprint(cor.test(a, b, method = "kendall"),
format = "cor.test",
print.statistic = TRUE)
pprint(cor.test(a, b, method = "spearman"),
format = "cor.test",
print.statistic = TRUE)
Run the code above in your browser using DataLab