Rで偏相関
library("psych")
qb_learn<-qba
qb_test<-qbbqb_learn<-qb_learn %>% dplyr::select(y,TIKUNENSUU,TINRYOU)
qb_test<-qb_test %>% dplyr::select(y,TIKUNENSUU,TINRYOU)> cor(qb_learn$TINRYOU,qb_learn$y)
[1] 0.1614954
> cor(qb_learn$TINRYOU,qb_learn$TIKUNENSUU)
[1] -0.3352435
> cor(qb_learn$TIKUNENSUU,qb_learn$y)
[1] -0.2804512
> partial.r(qb_learn,c(1,2),3)
partial correlations
y TIKUNENSUU
y 1.00 -0.24
TIKUNENSUU -0.24 1.00
> partial.r(qb_learn,c(1,3),2)
partial correlations
y TINRYOU
y 1.00 0.07
TINRYOU 0.07 1.00
> partial.r(qb_learn,c(2,3),1)
partial correlations
TIKUNENSUU TINRYOU
TIKUNENSUU 1.00 -0.31
TINRYOU -0.31 1.00
> partial.r(qb_learn)
