library(igraph)
library(igraphdata)
data("karate", package = "igraphdata")
A <- get.adjacency(karate)
iform <- RegularizedLaplacian(A)
L <- transform(iform, A)
L
A_recovered <- inverse_transform(iform, L)
all.equal(A, A_recovered)
Run the code above in your browser using DataLab