set.seed(123)
x <- rnorm(20)
y <- rnorm(20)
perm_test(x, y, B = 500, method = "Pearson", alternative = "greater")
perm_test(x, y, B = 500, method = "Spearman", alternative = "two.sided")
perm_test(x, y, B = 500, w = rep(0.05,20), method = "wtdPearson", alternative = "less")
perm_test(x, y, B = 500, r0 = -0.5, method = "CCC", alternative = "greater")
Run the code above in your browser using DataLab