時系列で Haar ウェーブレット変換を実行したい:
k<-c(4,6,10,12,8,6,5,5)
私はこのコードでこの仕事をします（私はWavethreshパッケージを使用しています）
ywd<-wd(k,filter.number=2,family="DaubExPhase")
c<-accessC(ywd,level=2)
c
出力は次のとおりです。
7.639474 15.884519 9.356473 6.717514
傾向や平均の部分を期待している理由はありません
私が期待したのは
私のコードの問題は何ですか?RでHaarウェーブレット変換を行うにはどうすればよいですか?