x <- c(6,7,8,17,12,16)
y <- c(33.46,50.68,87.92, 98.84, 63.6, 107.3)
cor(x, y, method = c("pearson"))
cor.test(x, y, method=c("pearson"))
The result is a 2 tailed p value. Take half of it. If the half is less than your significance level alpha, then the null hypothesis of no correlation is rejected/