#object: 计算相关系数，并且计算相关系数之间的检验 #writer: mike #time: 2020,11,14 a <- c(1,2,3,4,4,6) b <- c(11,23,55,66,77,23) d <- c(21,43,55,67,22,56) e <- c(123,53,231,545,23,56) data <- data.frame(a,b,d,e) #计算相关系数 res <- cor(data) print(res) #计算相关系数之间的检验,只能对两个相关系数进行检验 res2 <- cor.test(data[,1],data[,2]) # 注意这里不能用data['a'], 它与data[,1] 的结果是有区别的 print(res2) library('psych') #只有在psych包中，才能对相关系数进行检验 res3 <- corr.test(res,short=F) #这样可以打印出全部的结果 print(res3,short=F)