highfrequency (version 0.7.0.1)

MRC: Modulated Realized Covariance (MRC): Return univariate or multivariate preaveraged estimator.

Description

Function returns univariate or multivariate preaveraged estimator, as defined in Hautsch and Podolskij (2013).

Usage

MRC(pData, pairwise = FALSE, makePsd = FALSE)

Arguments

pData

a list. Each list-item contains an xts object with the intraday price data of a stock.

pairwise

boolean, should be TRUE when refresh times are based on pairs of assets. FALSE by default.

makePsd

boolean, in case it is TRUE, the positive definite version of MRC is returned. FALSE by default.

Value

an $dxd$ matrix

Details

In practice, market microstructure noise leads to a departure from the pure semimartingale model. We consider the process $Y$ in period $\tau$: $${\text{Y}}_{\tau }=X_{\tau }+{ϵ}_{\tau }$$ where, the observed $d$ dimensional log-prices are the sum of underlying Brownian semimartingale process $X$ and a noise term ${ϵ}_{\tau }$.

${ϵ}_{\tau }$ is an i.i.d process with $X$.

It is intuitive that under mean zero i.i.d. microstructure noise some form of smoothing of the observed log-price should tend to diminish the impact of the noise. Effectively, we are going to approximate a continuous function by an average of observations of Y in a neighborhood, the noise being averaged away.

Assume there is $N$ equispaced returns in period $\tau$ of a list (after refeshing data). Let $r_{{\tau }_i}$ be a return (with $i=1,\dots ,N$) of an asset in period $\tau$. Assume there is $d$ assets.

In order to define the univariate pre-averaging estimator, we first define the pre-averaged returns as $${\overline{r}}_{{\tau }_j}^{(k)}=\sum _{h=1}^{k_N-1}g\left(\frac{h}{k_N}\right)r_{{\tau }_{j+h}}^{(k)}$$ where g is a non-zero real-valued function $g:[0,1]$ $\to$ $R$ given by $g(x)$ = $min(x,1-x)$. $k_N$ is a sequence of integers satisfying ${\text{k}}_N=\lfloor \theta N^{1/2}\rfloor$. We use $\theta =0.8$ as recommended in Hautsch & Podolskij (2013). The pre-averaged returns are simply a weighted average over the returns in a local window. This averaging diminishes the influence of the noise. The order of the window size $k_n$ is chosen to lead to optimal convergence rates. The pre-averaging estimator is then simply the analogue of the Realized Variance but based on pre-averaged returns and an additional term to remove bias due to noise $$\hat{C}=\frac{N^{-1/2}}{\theta {\psi }_2}\sum _{i=0}^{N-k_N+1}({\overline{r}}_{{\tau }_i}{)}^2-\frac{{\psi }_1^{k_N}{N}^{-1}}{2{\theta }^2{\psi }_2^{k_N}}\sum _{i=0}^N{r}_{{\tau }_i}^2$$ with $${\psi }_1^{k_N}=k_N\sum _{j=1}^{k_N}{(g\left(\frac{j+1}{k_N}\right)-g\left(\frac{j}{k_N}\right))}^2,$$ $${\psi }_2^{k_N}=\frac{1}{k_N}\sum _{j=1}^{k_N-1}{g}^2\left(\frac{j}{k_N}\right).$$ $${\psi }_2=\frac{1}{12}$$ The multivariate counterpart is very similar. The estimator is called the Modulated Realized Covariance (MRC) and is defined as $$\text{MRC}=\frac{N}{N-k_N+2}\frac{1}{{\psi }_2{k}_N}\sum _{i=0}^{N-k_N+1}{\overline{\mathit{r}}}_{{\tau }_i}\cdot {\overline{\mathit{r}}}_{{\tau }_i}^{\prime }-\frac{{\psi }_1^{k_N}}{{\theta }^2{\psi }_2^{k_N}}\hat{\mathrm{\Psi }}$$ where ${\hat{\mathrm{\Psi }}}_N=\frac{1}{2N}\sum _{i=1}^N{\mathit{r}}_{{\tau }_i}({\mathit{r}}_{{\tau }_i}{)}^{\prime }$. It is a bias correction to make it consistent. However, due to this correction, the estimator is not ensured PSD. An alternative is to slightly enlarge the bandwidth such that ${\text{k}}_N=\lfloor \theta N^{1/2+\delta }\rfloor$. $\delta =0.1$ results in a consistent estimate without the bias correction and a PSD estimate, in which case: $${\text{MRC}}^{\delta }=\frac{N}{N-k_N+2}\frac{1}{{\psi }_2{k}_N}\sum _{i=0}^{N-k_N+1}{\overline{\mathit{r}}}_i\cdot {\overline{\mathit{r}}}_i^{\prime }$$

References

Hautsch, N., & Podolskij, M. (2013). Preaveraging-Based Estimation of Quadratic Variation in the Presence of Noise and Jumps: Theory, Implementation, and Empirical Evidence. Journal of Business & Economic Statistics, 31(2), 165-183.

Examples

# NOT RUN {
a <- list(sample5MinPricesJumps["2010-01-04",1], sample5MinPricesJumps["2010-01-04",2])
MRC(a, pairwise = TRUE, makePsd = TRUE)

# }