starting plots
Adding on.exit(setwd(current.Dir)) to all functions
function returns wd to old status on exit
Reset working dir to HOME on exit
new aggregating functions
begin plotting
saving individual dataframes