Added week2 flu.R