重回帰分析
dset <- read.csv("d/sample3.csv", header=TRUE) attach (dset) eq1 <- lm(y ~ x1 + x2) summary(eq1)