In [ ]:

    

library(ISLR)


    

In [ ]:

    

str(College)


    

In [ ]:

    

college <- College


    

In [ ]:

    

str(college)


    

In [ ]:

    

head(college)


    

In [ ]:

    

rownames(college) <- college[, 1]


    

In [ ]:

    

college <- college[, -1]


    

In [ ]:

    

college <- College


    

In [ ]:

    

summary(college)


    

In [ ]:

    

pairs(college[,1:10])


    

In [ ]:

    

boxplot(Outstate ~ Private, data = college)


    

In [ ]:

    

Elite <- rep("No", nrow(college))
Elite[college$Top10perc > 50] <- "Yes"
Elite <- as.factor(Elite)
college <- transform(college, Elite = Elite)
summary(college)


    

In [ ]:

    

eliteCollege <- college[college$Elite == "Yes", ]
eliteCollege


    

In [ ]:

    

boxplot(Outstate ~ Elite, data = college)