Update PA1_template.R