if (FALSE) {
data(faux.mesa.high)
fmh.ego <- egor::as.egor(faux.mesa.high)
fmhfit <- ergm.ego(
fmh.ego ~ edges + degree(0:3) +
nodefactor("Race") + nodematch("Race")
+ nodefactor("Sex")+nodematch("Sex")
+ absdiff("Grade") + gwesp(0, fix=TRUE),
popsize = network.size(faux.mesa.high),
control = control.ergm.ego(
ergm = control.ergm(parallel=2)
)
)
}
Run the code above in your browser using DataLab