3 functions to find the hospital with the best rates for heart attacks, heart failures, and pneumonia

Assignment3.2.R

## find the hospital for state with best heart attack rate

ha <- function(thestate) {
  data <- read.csv("outcome-of-care-measures.csv",
                   header = TRUE, sep = ",",
                   colClasses = "character")
  # convert to proper class
  data[,11] <- as.numeric(data[,11])
  
  for(i in thestate) {
    # choose the state
    mystate <- subset(data, State == thestate)
    
    # find the hospital
    myhospital <- as.character(mystate[which.min(mystate[,11]), 2])
  }
  myhospital
}

## find the hospital for state with best heart failure rate

hf <- function(thestate) {
  data <- read.csv("outcome-of-care-measures.csv",
                   header = TRUE, sep = ",", colClasses = "character")
  # convert hf class to numeric
  data[,17] <- as.numeric(data[,17])

  for(i in thestate) {
    mystate <- subset(data, State == thestate)
    ind <- which.min(mystate[,17])
    myhospital <- (mystate[ind, 2])
  }
  myhospital
}

## find the hospital for state with best pneumonia rates

pneu <- function(thestate) {
  data <- read.csv("outcome-of-care-measures.csv",
                   header = TRUE, sep = ",", colClasses = "character")
  # convert pneumonia column to numeric
  data[,23] <- as.numeric(data[,23])
  
  for(i in thestate) {
    mystate <- subset(data, State == thestate)
    ind <- which.min(mystate[,23])
    myhospital <- mystate[ind, 2]
  }
  myhospital
}