Extracting Previous Day Values from Time-Series Objects in R with xts Library