# 8-6 Exercise 3 - A&E Attendance Data

# The data is held in a file called PatientNumbers.csv
# This is within the SP08 folder of the current working directory
# The file contains headers

# Load file

patients<-read.csv("SP08/PatientNumbers.csv", header=TRUE)

# Display patients

patients

# Calclate Under4Percentage

Under4Percentage<-patients$Under4/patients$Attendances*100

# Bind Under4Percentage into frame

patients<-cbind(patients[1:4],Under4Percentage,patients[5:6])

# Display patients

patients

# Calclate Under8Percentage

Under8Percentage<-patients$Under8/patients$Attendances*100

# Bind Under8Percentage into frame

patients<-cbind(patients[1:6],Under8Percentage,patients[7])

# Display patients

patients

# Calclate Under12Percentage

Under12Percentage<-patients$Under12/patients$Attendances*100

# Bind Under12Percentage into frame

patients<-cbind(patients,Under12Percentage)

# Display patients

patients

# Calclate Over12

Over12<-patients$Attendances-patients$Under12

# Bind Over12 into frame

patients<-cbind(patients,Over12)

# Display patients

patients

# Identify which meet government target
# For this, Under4Percentage >= 95.0

Target<-patients$Under4Percentage>=95.0

# Bind Target into frame

patients<-cbind(patients,Target)

# Display patients

patients

# Create bigfast, showing Major units that pass the 95% target

bigfast<-patients[patients$Size=="Major" & patients$Target==TRUE,]

# Display bigfast

bigfast

# Create smallfast, showing Minor units that pass the 95% target

smallfast<-patients[patients$Size=="Minor" & patients$Target==TRUE,]

# Display smallfast

smallfast



