R中的haar变换后的归一化过程

Question

我为[9,7,3,5]（使用小波包）运行haar变换，而我没有弄清楚如何实现输出系数。我相信非标准化结果将是：[6,2,1,-1]。根据我所读到的，归一化是通过将每个系数乘以2^(-j/2)来完成的，但事实并非如此。

library(wavelets)
wt <- dwt(c(9,7,3,5), filter="haar", boundary="periodic", fast=FALSE)
wt