data(gsubway)
# attributes
names(vertex_attr(gsubway)); names(edge_attr(gsubway)); names(graph_attr(gsubway))
# standardizing the graph signal
V(gsubway)$z <- c(scale(V(gsubway)$z))
# statistical graph empirical mode decomposition (SGEMD) with boundary treatment
out <- sgemd(gsubway, nimf=1, smoothing=TRUE, boundary=TRUE, connweight="graph")
# display of a signal, denoised signal by SGEMD
gplot(gsubway, size=3)
gplot(gsubway, out$residue, size=3)
Run the code above in your browser using DataLab