## Load Microsoft Data Set -
data(MSFT)
x <- MSFT
## Aggregate by Weeks -
by <- timeSequence(from = start(x), to = end(x), by = "week")
aggregate(x, by, mean)
## Aggregate to Last Friday of Month -
by <- unique(timeLastNdayInMonth(time(x), 5))
aggregate(x, by, mean)
## Aggregate to Last Day of Quarter -
by <- unique(timeLastDayInQuarter(time(x)))
aggregate(x, by, mean)
Run the code above in your browser using DataLab