p = 20
n = 200
omega = diag(rep(1,p))
for (i in 1:p) {
for (j in 1:p) {
omega[i,j] = 0.3^(abs(i-j))*(abs(i-j) < 2)
}
}
Sigma = solve(omega)
X = MASS::mvrnorm(n, rep(0,p), Sigma)
S.hat.A = cov(X)
delta.hat = diag(rep(1,p)) - diag(rep(1,p))
omega.hat = Theta.est(S.hat.A, delta.hat, lam2=0.2)
Run the code above in your browser using DataLab