bare start to a function for generating time series data frames (make_time().R)