data-raw/fmhfit.R

In statnet/ergm.ego: Fit, Simulate and Diagnose Exponential-Family Random Graph Models to Egocentrically Sampled Network Data

#  File data-raw/fmhfit.R in package ergm.ego, part of the
#  Statnet suite of packages for network analysis, https://statnet.org .
#
#  This software is distributed under the GPL-3 license.  It is free,
#  open source, and has the attribution requirements (GPL Section 7) at
#  https://statnet.org/attribution .
#
#  Copyright 2015-2023 Statnet Commons
################################################################################
library(ergm.ego)

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),
  verbose = 3,
  control = control.ergm.ego(
    ergm = control.ergm(
      parallel=2,
      seed = 666
      )
  )
)


# save
usethis::use_data(fmhfit, overwrite=TRUE)








if(FALSE) {
  # Complete fit
  fit <- ergm(
    faux.mesa.high ~ edges + degree(0:3) + 
      nodefactor("Race") + nodematch("Race")
    + nodefactor("Sex")+nodematch("Sex")
    + absdiff("Grade") + transitiveties, 
    control = control.ergm(parallel=2)
  )

fmhfit2 <- ergm.ego(
  fmh.ego ~ edges + degree(0:3) + 
    nodefactor("Race") + nodematch("Race")
  + nodefactor("Sex")+nodematch("Sex")
  + absdiff("Grade") + transitiveties, 
  popsize = network.size(faux.mesa.high),
  control = control.ergm.ego(
    ergm = control.ergm(parallel=2, init=c(0,coef(fit)))
  )
)

}