search

EmilyPo / Diss-Duration

0 stars 0 forks source link

Cleaned up code for ergm.ego nw substitution #3

Open martinamorris opened 4 years ago

martinamorris commented 4 years ago

Pavel fixed ergm.ego's handling of ppop.wt=nw, so if you pull the new version you can use this (i'm allowing for changing the ppop.wt at the top of the script):

if (ppopwt == 'sample') {
  mpop <- environment(main_fit$ergm.formula)$popnw
  control.casl <- control.ergm.ego(ppopsize = mpop, ppop.wt = ppopwt)
  }
if (ppopwt == 'round') {
  control.casl <- control.ergm.ego(ppopsize = ppop, ppop.wt = ppopwt)
}

and to install the latest ergm.ego from master into your local ~/R-Dev:

devtools::dev_mode()
remotes::install_github(c("statnet/ergm.ego@master"))
devtools::dev_mode()