Did a bunch of clean-up, renamed variables, added better comments, applied the factor() function to admissions.trimmed$Operation.Type (I had missed this originally, though it didn't actually affect the final results).