wr(wd, start.level = 0, verbose = FALSE,
bc = wd$bc, return.object = FALSE,
filter.number = wd$filter$filter.number, family = wd$filter$family)
wd
object, but can specified differently by the ``knowing''.accessC(wd.object, level=wd.object$levels)
wd
for a list.wd
, accessC
, accessD
,
filter.select
, threshold
.# Decompose and then exactly reconstruct test.data
example(wd)#-> wds has wd() ressult
rec.wds <- wr(wds)
rec.wds.obj <- wr(wds, return.object = TRUE)
rec.wds2 <- accessC(rec.wds.obj, level=rec.wds.obj$nlevels)
all(rec.wds == rec.wds2)# since wr() internally uses accessC()
# Look at accuracy of reconstruction
summary(abs(rec.wds - y)) #~ 10^-11
# Reconstruct a hard.thresholded object, look at the wavelet coefficients
summary(thr.wds <- wr(threshold(wds, type="hard") ))
Run the code above in your browser using DataLab