script/test_rcpp.R

# test Rcpp

ergmx = ergm::simulate_formula(network::network(100, directed = FALSE) ~ edges, output = "stats", coef = -2, nsim = 10000)
SNx = StartNetwork:::ergm_simulator_cpp(rep(0, 100), 10000, -2)

hist(SNx$stats[4000:10000])
hist(ergmx[4000:10000])
AnthonyEbert/StartNetwork documentation built on April 24, 2020, 3:28 a.m.