# The file used for data wrangling
collegeDistance <- read.csv("https://vincentarelbundock.github.io/Rdatasets/csv/AER/CollegeDistance.csv", header = TRUE)
# Creating and displaying a subset of the columns and rows of the file. 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))
# Adding a new column called "State" to my highIncomeMale data frame. Add the value "New York" to this column.
highIncomeMale$state <-"New York"
# Adding a new column called "city" to my highIncomeMale data frame. Add the value "Brooklyn" to this column.
highIncomeMale$state <-"New York"
highIncomeMale$city <-"Brooklyn"