２次元画像のウェーブレット変換をしてみる Haarウェーブレットを例にとる waveslimパッケージを使えば library(waveslim) data(xbox) X <- xbox out.dwt <- dwt.2d(X,"haar",3) dev.new() plot.dwt.2d(out.dwt) #### n <- 128 X <- matrix(rnorm(n^2),n,n) …