Nothing
laplacian <- function(A, normalised = F){
n = dim(A)[1]
temp = apply(abs(A), 2, sum)
D = diag(temp, nrow = n)
temp1 = Reciprocal(sqrt(temp))
half.D = diag(temp1, nrow = n)
if(normalised == TRUE) return(half.D %*% (D - A) %*% half.D)
if(normalised == FALSE) return(D - A)
}
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.