# The file used for data wrangling
collegeDistance <- read.csv("https://vincentarelbundock.github.io/Rdatasets/csv/AER/CollegeDistance.csv", header = TRUE)
# Creating and displaying a new data frame called "highIncomeMale". Below, I will display a subset of all males who have a high income.
highIncomeMale <- subset(collegeDistance,gender=="male" & income == "high",select=c(gender,income,wage))