robCov(sY, alpha = 2, beta = 1.25)Et(E)%*%E;}half.ldet.VmYsdd.0 from the mean.
d.0 is sqrt(nrow(sY))+alpha/sqrt(2).
Weights are one for observations with Mahalanobis
distance, d, less than d.0. Otherwise
weights are d.0*exp(-.5*(d-d.0)^2/beta)/d. The
defaults are as recommended by Campbell. This routine
also uses pre-conditioning to ensure good scaling and
stable numerical calculations.p <- 5;n <- 100
Y <- matrix(runif(p*n),p,n)
robCov(Y)Run the code above in your browser using DataLab