[[ばらつき、残差、有意水準]] dset <- read.csv("d/sample3.csv", header=TRUE) attach (dset) eq1 <- lm(y ~ x1) summary(eq1) plot(x1,y,ylim=c(-10,15)) par(new=T) abline(h = -6.0930)