Load ISLR2 library

library(ISLR2)

View the Boston data set

data(“Boston”) View(Boston)

Check dimensions

dim(Boston) # rows and columns

Scatterplot matrix of the first few predictors

pairs(Boston[, 1:6], main = “Scatterplot Matrix (first 6 variables)”)

Correlation with crime

cor(Boston$crim, Boston)

summary(Boston\(crim) summary(Boston\)tax) summary(Boston$ptratio)

Check for unusually high values

Boston[Boston\(crim > 50, ] Boston[Boston\)tax == max(Boston\(tax), ] Boston[Boston\)ptratio == max(Boston$ptratio), ]

table(Boston$chas)

median(Boston$ptratio)

Index of lowest median home value

which.min(Boston$medv)

Show all variable values for that row

Boston[which.min(Boston$medv), ]

Compare with overall range

summary(Boston)

More than 7 rooms

sum(Boston$rm > 7)

More than 8 rooms

sum(Boston$rm > 8)

View those tracts

Boston[Boston$rm > 8, ]