Last 100 days of data in R