Nothing
# kernel matrix
net.kernel <- function (g, decay = 0.5)
{
L <- as.matrix(laplacian_matrix(g, normalized = TRUE))
colname <- colnames(L)
rowname <- rownames(L)
I <- diag(1, dim(L))
K <- chol2inv(chol(I + decay * L))
colnames(K) <- colname
rownames(K) <- rowname
return(K)
}
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.