chibondking

library(PerformanceAnalytics)
library(PortfolioAnalytics)
library(quantmod)

options( error = recover )

fastCovMcdEstimator <- function(x, spec=NULL,...) {
  covMcdEstimate
}