# NOT RUN {
###1d
x <- as.matrix(rnorm(2^3))
range(x - iwt(wt(x)))
###2d
x <- matrix(rnorm(2^(3 + 4)), 2^3, 2^4)
range(x - iwt(wt(x)))
###3d
x <- array(rnorm(2^(3 + 4 + 5)), c(2^3, 2^4, 2^5))
range(x - iwt(wt(x)))
# }
Run the code above in your browser using DataLab