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