powered by
dof(wd)
dof
wd
threshold
example(wd) threshy <- threshold(wds) # Compare degrees of freedom dof(wds) # 1024 dof(threshy) # about 23
Run the code above in your browser using DataLab