小波去噪同时保留信号中的尖锐特征 - 在 R

Question

我一直在做一些研究，实际上很难在 R 中找到一个函数来直接对（大）信号进行降噪，同时保留信号中的尖锐特征。

包装 https://cran.r-project.org/web/packages/wmtsa/index.html 或https://cran.rstudio.com/web/packages/rwt/index.html 包含为此的功能。显然，函数

wmtsa::wavMRDSum

完成了这项工作，但它已被弃用。

wavMRDSum(x, wavelet="s8",
          levels=1, xform="modwt", reflect=TRUE,
          keep.smooth=TRUE, keep.details=TRUE)

此外，我无法安装

wmtsa

，因为我无法编译

devtools::install_github("spkaluzny/ifultools")

。我收到一条众所周知的消息：

Warning in install.packages : package ‘ifultools’ is not available for this version of R

似乎它需要一个我无法在我的 mac 中安装的特定 gcc。

就是说，有谁知道在 R 中执行小波去噪有哪些替代方案？ （例如像

wden

在 matlab https://es.mathworks.com/help/wavelet/ug/wavelet-denoising.html