dset <- read.csv("d/sample3.csv", header=TRUE) attach (dset) eq1 <- lm(y ~ x1) summary(eq1) plot(x1,y) abline(-6.0930,2.6227,add=T) dset <- read.csv("d/sample3.csv", header=TRUE) attach (dset) eq1 <- lm(y ~ x1) summary(eq1) plot(x1,y) abline(-6.0930,2.6227,add=T)