library(bionetdata);
data(DD.chem.data);
check.network(DD.chem.data);
W <- Prob.norm(DD.chem.data);
check.network(W, "prob. transition matrix");
WL <- Laplacian.norm(DD.chem.data);
check.network(WL, "Laplacian norm. matrix");
library(graph)
g1 = randomEGraph(LETTERS[1:15], edges = 40);
check.network(g1, "random graph");
Run the code above in your browser using DataLab