prestige <- read.table("C:/Users/jrose15/Desktop/prestige.txt", header=T, quote="\"")

inclevel <- 0

for (i in prestige$income) {
  if ((i < 70 ) & (i >= 40)) {
    inclevel <- c(inclevel,2)
  }
  if (i >= 70 ) {
    inclevel <- c(inclevel,3)
  }
  if (i < 40) {
    inclevel <- c(inclevel,1)
  }
}

inclevel <- inclevel[-1] #This was lazy technique, but it works.