[[多重共線性と相関行列]] dset <- read.csv("d/sample3.csv", header=TRUE) attach (dset) cor(dset) cor.test(x1,x2)