Draw a Simulation of Network Using Distribution Of An Exponential Family Random Graph Model Based on Observed Data

sim_ergm_network(fit, type_function)

Arguments

fit

object of ergm class produced by fitting model using ergm function

type_function

function of igraph object g that takes existing vertex attributes and transforms them into type attribute in the binary coded format (consists of 0's and 1's only)

Value

igraph network object with vertex attribute type in the binary coded format (consists of 0's and 1's only)

Examples

if (FALSE) {
library(network)
library(ergm)

data('faux.magnolia.high')

fit <- ergm(faux.magnolia.high ~
              edges +
              gwesp(0.25,fixed=T) +
              nodematch("Grade") + nodematch("Sex"),
            control = control.ergm(MCMC.interval = 10000),
            verbose = F)

sim_ergm_network(fit = fit,
                 type_function = function(g) {
                   paste0( as.integer(igraph::vertex_attr(g)$Sex == "M"),
                           as.integer(igraph::vertex_attr(g)$Grade == 9))})

}