week3assignment

best <- function(state, outcome){
  outcome_data <-read.csv("outcome-of-care-measures.csv", colClasses = "character")
  ##
  state_options <- outcome_data[,7]
  if(state %in% state_options){}
    else
      {
        stop("invalid state")
      }
  if(outcome !="heart attack"){break}
    else if(outcome == "heart failure"){break}
    else if(outcome == "pneumonia"){break}
    else
    {
        stop("invalid outcome")
      }
  ##
  
}