# \donttest{
# Create example data
data <- data.frame(x = runif(100), y = runif(100), signal = rnorm(100))
# Plot both low and high frequency modes
SG <- initSGWT(data, signals = "signal")
SG <- runSpecGraph(SG, k = 15)
plot_FM(SG, mode_type = "both", n_modes = 4)
# Plot only low frequency modes
plot_FM(SG, mode_type = "low", n_modes = 8)
# }
Run the code above in your browser using DataLab