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