test.data.3D <- array(rnorm(8*8*8), dim=c(8,8,8))
tdwd3D <- wd3D(test.data.3D)
summary(tdwd3D)
#Levels: 3
#Filter number was: 10
#Filter family was: DaubLeAsymm
#Date: Mon Mar 8 21:48:00 2010
Run the code above in your browser using DataLab