if (FALSE) {
# Extract the adjacency matrix from the grid1 and compute the Laplacian
L <- laplacian_mat(grid1$sA)
# Create a sample graph signal
f <- rnorm(nrow(L))
# Compute the forward GFT
hatf <- forward_gft(L, f)
# Compute the forward GFT
recf <- inverse_gft(L, hatf)
}
Run the code above in your browser using DataLab