View source: R/GSD_functions.R
gextrema | R Documentation |
This function finds the local extrema of a graph signal identifying the edge between neighboring vertices.
gextrema(ad_mat, signal)
ad_mat |
an weighted adjacency matrix. |
signal |
a graph signal. |
This function finds the local extrema of a graph signal identifying the edge between neighboring vertices.
maxima_list |
vertex index of local maxima of a |
minima_list |
vertex index of local minima of a |
n_extrema |
the number of local maxima and local minima of a |
Tremblay, N., Borgnat, P., and Flandrin, P. (2014). Graph empirical mode decomposition. 22nd European Signal Processing Conference (EUSIPCO), 2350–2354.
ginterpolating
, gsmoothing
, sgemd
.
#### example : composite of two components having different frequencies
## define vertex coordinate
x <- y <- seq(0, 1, length=30)
xy <- expand.grid(x=x, y=y)
## weighted adjacency matrix by Gaussian kernel
## for connecting vertices within distance 0.04
A <- adjmatrix(xy, method = "dist", 0.04)
## signal
# high-frequency component
signal1 <- rep(sin(12.5*pi*x - 1.25*pi), 30)
# low-frequency component
signal2 <- rep(sin(5*pi*x - 0.5*pi), 30)
# composite signal
signal0 <- signal1 + signal2
# noisy signal with SNR(signal-to-noise ratio)=5
signal <- signal0 + rnorm(900, 0, sqrt(var(signal0) / 5))
# graph with signal
gsig <- gsignal(vertex = cbind(xy, signal), edge = A, edgetype = "matrix")
# local extrema
gextrema(A, signal)
# local extrema using graph object
gextrema(as_adjacency_matrix(gsig, attr="weight"), V(gsig)$z)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.