Korelasi Spearman

x <- c(22, 17, 19, 21, 25, 22, 15, 17, 19, 23, 23, 20, 15, 25, 18)
y <- c(3, 1, 3, 3, 4, 4, 1, 2, 4, 2, 3, 2, 1, 4, 2)
cor(x,y, method = "spearman")