Nothing
laplaceMatrix <- function(g) {
stopifnot(.validateGraph(g))
adj.mat <- adjacencyMatrix(g)
D <- diag(rowSums(adj.mat, na.rm = FALSE, dims = 1))
Lap_Mat <- D - adj.mat
Lap_Mat
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.