# Import netcom
library(netcom)
# Adjacency matrix
size <- 10
comparisons <- 50
network_target <- matrix(sample(c(0,1), size = size^2, replace = TRUE), nrow = size, ncol = size)
network_others <- list()
for (net in 1:comparisons) {
network_others[[net]] = matrix(
sample(
c(0,1),
size = size^2,
replace = TRUE),
nrow = size,
ncol = size)
}
compare_Target(target = network_target, networks = network_others, net_size = size, method = "DD")
Run the code above in your browser using DataLab