In [ ]:

    

library(ISLR)


    

In [ ]:

    

auto <- Auto


    

In [ ]:

    

summary(auto)


    

In [ ]:

    

str(auto)


    

In [ ]:

    

sapply(auto, function(x) sum(is.na(x)))


    

In [ ]:

    

autoLess <- auto[-c(10, 85), ]
autoLess


    

In [ ]:

    

pairs(auto)


    

In [ ]:

    

library(MASS)


    

In [ ]:

    

str(Boston)


    

In [ ]:

    

pairs(Boston)


    

In [ ]:

    

plot(Boston$crim)


    

In [ ]:

    

plot(Boston$tax)


    

In [ ]:

    

summary(Boston)


    

In [ ]:

    

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


    

In [ ]:

    

sum(Boston$rm > 8)


    

In [ ]:

    

Boston[Boston$rm > 8,]