changed means1.R: should write all data to same var now (added function to determine time starting point)