Rで偏相関 library("psych") qb_learn qb_testqb_learn% dplyr::select(y,TIKUNENSUU,TINRYOU) 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.335243…