if (FALSE) {
library("xts")
# Realized Outlyingness Weighted Variance/Covariance for prices aligned
# at 1 minutes.
# Univariate:
row <- rOWCov(rData = as.xts(sampleOneMinuteData[as.Date(DT) == "2001-08-04",
list(DT, MARKET)]), makeReturns = TRUE)
row
# Multivariate:
rowc <- rOWCov(rData = as.xts(sampleOneMinuteData[as.Date(DT) == "2001-08-04",]),
makeReturns = TRUE)
rowc
}
Run the code above in your browser using DataLab