# NOT RUN {
# Average subsampled realized variance/covariance aligned at one minute returns at
# 5 subgrids (5 minutes).
# Univariate
rvSub <- rAVGCov(rdata = sample_tdata$PRICE, align.by = "minutes",
align.period = 5, makeReturns = TRUE)
rvSub
# Multivariate:
rcovSub <- rAVGCov(rdata = cbind(lltc, sbux, fill = 0), align.by = "minutes",
align.period = 5, makeReturns = FALSE)
rcovSub
# }
Run the code above in your browser using DataLab