Added steps to reproduce the analysis
Removed setwd(). Now writes average (smaller) data.frame to file