# This is autorun outside of examples
tawny:::.init()
data(sp500.subset)
h <- sp500.subset
p <- create(TawnyPortfolio, h, 150)
r1 <- denoise(p, create(SampleFilter))
r2 <- denoise(p, create(EmpiricalFilter))
r3 <- denoise(p, create(ShrinkageFilter))
r4 <- denoise(p, create(RandomMatrixFilter))Run the code above in your browser using DataLab