# NOT RUN {
# Average subsampled realized variance/covariance aligned at one minute returns at
# 5 subgrids (5 minutes).
# Univariate
rvSub <- rAVGCov(rData = sampleTData$PRICE, alignBy = "minutes",
alignPeriod = 5, makeReturns = TRUE)
rvSub
# Multivariate:
rcovSub <- rAVGCov(rData = cbind(lltc, sbux, fill = 0), alignBy = "minutes",
alignPeriod = 5, makeReturns = FALSE)
rcovSub
# Multivariate with a 30 second fast aggregation and a 2.5 minute slow aggregation.
rcovSub <- rAVGCov(rData = cbind(lltc, sbux, fill = 0),
alignBy = "minutes", alignPeriod = 2.5, k = 0.5, makeReturns = FALSE)
rcovSub
# }
Run the code above in your browser using DataLab