gistlib
main.rnormalize_laplacian_matrix <- function(L) { D <- diag(rowSums(L)) L_normalized <- solve(sqrt(D)) %*% L %*% solve(sqrt(D)) return(L_normalized) } 151 chars6 lines
normalize_laplacian_matrix <- function(L) { D <- diag(rowSums(L)) L_normalized <- solve(sqrt(D)) %*% L %*% solve(sqrt(D)) return(L_normalized) }
gistlibby LogSnag