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)
# Generate the tight frame coefficients using the tight_frame function
tf <- tight_frame(decomp$evalues, decomp$evectors)
# Create a random graph signal.
f <- rnorm(nrow(L))
# Compute the transform coefficients using the analysis operator
coef <- analysis(f, tf)
# Retrieve the graph signal using the synthesis operator
f_rec <- synthesis(coef, tf)
}
Run the code above in your browser using DataLab