Started question 5 with sample code from abortion.R file