Padding a Time Series in R