powered by
hard.thresholding(Sigma, c = 0.5)
p*p
p <- 5; Sigma <- AR1(p, rho=0.6); hard.Sigma<-hard.thresholding(Sigma,c=0.5); hard.Sigma;
Run the code above in your browser using DataLab