时间序列xt,可以用R语言 wmtsa 程序包进行小波变换。例子如下：
     library(wmtsa)
     xt.cwt <- wavCWT(xt, wavelet = "haar") #连续小波变换
     plot(xt.cwt, series = TRUE) #可视化