## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  eval = FALSE,
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
# 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)))

## ----eval=FALSE---------------------------------------------------------------
# matplot(t, t(res$imfs), type="l", lty=1)
# lines(t, res$residual, lwd=2)