n<-3e2 # number of realizations
p<-.5*n # number of assets
x <- matrix(data = rnorm(n*p), nrow = p, ncol = n)
Mtrx_trad <- CovarEstim(x, type="trad")
TM <- matrix(0, p, p)
diag(TM) <- 1
Mtrx_bgp <- CovarEstim(x, type="BGP14", TM=TM)
Mtrx_lw <- CovarEstim(x, type="LW20")
Run the code above in your browser using DataLab