# NOT RUN {
data(sp500.subset)
h <- sp500.subset
p <- TawnyPortfolio(h, 150)
r1 <- denoise(p, SampleDenoiser())
r2 <- denoise(p, EmpiricalDenoiser())
r3 <- denoise(p, ShrinkageDenoiser())
r4 <- denoise(p, RandomMatrixDenoiser())
# }
Run the code above in your browser using DataLab