Almost there, but it returns the underlying code of characters instead of the actual numerical value

Assignment3.3.R

best <- function(thestate, outcome) {
  mydata <- read.csv("outcome-of-care-measures.csv", header = TRUE, sep = ",", 
                     colClasses = "character")
  
  for(i in thestate) {
    if(outcome == "heart attack") {
      mystate <- subset(mydata, State = thestate, select = c(2, 7, 11))
      ind <- which.min(mystate[, 3])
      myhospital <- mystate[ind, 1]
      
    } else if(outcome == "heart failure") {
      mystate <- subset(mydata, State = thestate, select = c(2, 7, 17))
      ind <- which.min(mystate[, 3])
      myhospital <- mystate[ind, 1]
      
    } else if(outcome == "pneumonia") {
      mystate <- subset(mydata, State = thestate, select = c(2, 7, 23))
      ind <- which.min(mystate[, 3])
      myhospital <- mystate[ind, 1]
      
    } else {
      print("input error")
    }
  }
  myhospital
}

can't figure out how to convert to proper classes.