if (!requireNamespace(“ISLR2”, quietly = TRUE)) { install.packages(“ISLR2”) } library(ISLR2)
load_data <- function(dataset_name) { data(dataset_name, package=“ISLR2”) head(get(dataset_name)) }
load_data(“Auto”)
auto_model <- lm(mpg ~ horsepower, data = Auto) summary(auto_model)
plot(Auto\(horsepower, Auto\)mpg, main=“Horsepower vs MPG”, xlab=“Horsepower”, ylab=“MPG”, pch=16) abline(auto_model, col=“blue”, lwd=2)
load_data(“Carseats”)
carseats_model <- lm(Sales ~ Price + Urban + US, data = Carseats) summary(carseats_model)