Nothing
knitr::opts_chunk$set( eval = FALSE, collapse = TRUE, comment = "#>" )
RFIF wraps the upstream C implementation of Fast Iterative Filtering (FIF) and exposes it as a simple R call.
library(RFIF) t <- seq(0, 1, length.out = 2000) x <- sin(2*pi*5*t) + 0.5*sin(2*pi*20*t) res <- rfif(x) # Reconstruction max(abs(x - (colSums(res$imfs) + res$residual)))
matplot(t, t(res$imfs), type="l", lty=1) lines(t, res$residual, lwd=2)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.