# 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])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.