added three working R scripts for timeseries decomp