context("edge_density") test_that("edge_density works", { library(igraph) g <- sample_gnp(50, 4/50) gd <- edge_density(g) gd2 <- ecount(g) / vcount(g) / (vcount(g)-1) * 2 expect_that(gd, equals(gd2)) #### g <- sample_gnp(50, 4/50, directed=TRUE) gd <- edge_density(g) gd2 <- ecount(g) / vcount(g) / (vcount(g)-1) expect_that(gd, equals(gd2)) })
Generated by dwww version 1.15 on Sat Jun 15 03:30:22 CEST 2024.