data("diabetes")
x <- diabetes$x
y <- diabetes$y
## Spearman correlation
permTest(x, y, R = 100, method = "spearman")
permTest(x, y, R = 100, method = "spearman", consistent = TRUE)
## Pearson correlation
permTest(x, y, R = 100, method = "pearson")
Run the code above in your browser using DataLab