# NOT RUN {
## create a faux dictionary
dictionary <- wavDictionary(wavelet="s8",
dual=FALSE, decimate=FALSE, n.sample=512,
attr.x=NULL, n.levels=5,
boundary="periodic", conv=TRUE,
filters=wavDaubechies("s8"),
fast=TRUE, is.complex=FALSE)
## construct a faux wavFDP object
z <- wavFDP(estimator="wlse",
delta=0.45,
variance.delta=1.0,
innovations.variance=1.0,
delta.range=c(-10.0,10.0),
dictionary=dictionary,
levels=c(1,3:4),
edof.mode=2,
boundary=list(mode=TRUE,description="unbiased"),
series=create.signalSeries(fdp045),
sdf.method="Integration lookup table",
type="block")
## print the result
print(z)
# }
Run the code above in your browser using DataLab