Create alluvial_ts.R

Examples for the time-series alluvial function alluvial_ts()