enabled category selection

in 01_reading_and_cleaning.R, line 165

GIA332 - create variable to record a summarized category of attendance
Goers<-c(8,7,6)
Irregulars<-c(5,4,3)
Absentees<-c(2,1)