powered by
Adsales
attach(Adsales) plot(ads,sales) linmod <- lm(sales~ads) abline(linmod) summary(linmod) detach(Adsales)
Run the code above in your browser using DataLab