inst/benchmarks/time_distance_polblogs.R

In barrpet/redwalk-r: Network Community Detection

time_group("distance_polblogs")

time_that(desc = "D2 w/ SP", replications = 5,
  init = {
    library("redwalk");
    data("polblogs");
    g <- polblogs;
  },
  code = {
    mean_neighbor_dist_min(g);
  }
)

time_that(desc = "D2", replications = 5,
  init = {
    library("redwalk");
    data("polblogs");
    g <- polblogs;
    sp <- all_shortest_paths_uwud_fast(g);
  },
  code = {
    mean_neighbor_dist_min(g, short_paths = sp);
  }
)