.reduce_transitivity <- function(M) {
D <- Matrix::Diagonal(n = ncol(M))
adj <- M - D
transitivity <- adj %*% adj
transitivity@x[transitivity@x > 0] <- 1
return(adj - transitivity)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.