str(Aptitude)
attach(Aptitude)
plot(aptitude,product,main="Exercise 2.1")
model1 <- lm(product~aptitude)
model1
abline(model1,col="red",lwd=3)
resid(model1)
fitted(model1)
cor(product,aptitude)
detach(Aptitude)
Run the code above in your browser using DataLab