Solution challenge 1

R code, MAPE stat and csv output