tests/testthat/helper-edge-values.R

add_eattr <- function(nw, attr, f = runif){
  nwn <- substitute(nw)
  nw %e% attr <- f(network.edgecount(nw, na.omit = FALSE))

  eval.parent(call("<-", nwn, nw), 1)
}
statnet/ergm documentation built on Feb. 28, 2025, 7:05 p.m.