if (FALSE) {
# Extract the adjacency matrix from the grid1 and compute the Laplacian
L <- laplacian_mat(grid1$sA)
# Compute the spectral decomposition of L
decomp <- eigensort(L)
# Create a sample graph signal
f <- rnorm(nrow(L))
# Compute the forward Spectral Graph Wavelet Transform
wc <- forward_sgwt(f, decomp$evalues, decomp$evectors)
}
Run the code above in your browser using DataLab