# 11-2 Exercise 1 Updating data frames using FOR loops

# Load data file

juneNumbers<-read.csv("SP11/JuneNumbers.csv", header=TRUE)

juneNumbers

# Update the Target column to show TRUE if more than 80% of patients
# are seen in less than 4 hours

for (i in 1:nrow(juneNumbers))
{
  ifelse(juneNumbers[i,"Under4Percent"]>=80, # IF condition
         juneNumbers[i,"Target"]<-TRUE,  # Perform if condition returns TRUE
         juneNumbers[i,"Target"]<-FALSE) # Perform if consition returns FALSE
}

juneNumbers

# Update the Target column to show TRUE if the number of patients
# seen in less than 4 hours is over 85% at a major hospital or 
# over 95% at a minor hospital

for (i in 1:nrow(juneNumbers))
{
  
  if (juneNumbers[i,"Size"]=="Major")
  {
    ifelse (juneNumbers[i,"Under4Percent"]>=85,
            juneNumbers[i,"Target"]<-TRUE,  # Perform if condition returns TRUE
            juneNumbers[i,"Target"]<-FALSE) # Perform if consition returns FALSE     
  }
  else 
  {
    ifelse (juneNumbers[i,"Under4Percent"]>=95,
            juneNumbers[i,"Target"]<-TRUE,  # Perform if condition returns TRUE
            juneNumbers[i,"Target"]<-FALSE) # Perform if consition returns FALSE     
    
  }
}

juneNumbers
