http://www.commres.net/ 2026-04-17T09:31:11+00:00 http://www.commres.net/ http://www.commres.net/_media/wiki/logo.png text/html 2021-11-16T09:25:05+00:00 Anonymous (anonymous@undisclosed.example.com) http://www.commres.net/multiple_regression_exercise/eg_script?rev=1637054705&do=diff library(ISLR) attach(Carseats) str(Carseats) m.Sales.PriceShelveLoc <- lm(Sales ~ Price + ShelveLoc, data=Carseats) summary(m.Sales.PriceShelveLoc) plot(Price[ShelveLoc=="Bad"], Sales[ShelveLoc=="Bad"], col="blue", xlab="Price", ylab="Sales", main="Sales vs. Price, Shlv Loc") points(Price[ShelveLoc=="Medium"], Sales[ShelveLoc=="Medium"], col="red") points(Price[ShelveLoc=="Good"], Sales[ShelveLoc=="Good"], col="green") legend("topright", legend=c("Good", "Medium", "Bad"), co…