ergm.ego() no longer forces MCMC-based estimation, since ergm 4.2's e…

…rgm() always returns the Hessian.

fixes #74

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: ergm.ego
-Version: 1.0-669
+Version: 1.0-670
 Date: 2022-04-09
 Title: Fit, Simulate and Diagnose Exponential-Family Random Graph Models to Egocentrically Sampled Network Data
 Authors@R: c(
@@ -12,7 +12,7 @@ Authors@R: c(
 	    person("Chad", "Klumb", role=c("ctb"), email="[email protected]"))
 Depends:
     R (>= 2.10),
-    ergm (>= 4.0.0),
+    ergm (>= 4.2.0),
     egor,
     network (>= 1.17.1)
 LinkingTo: ergm

R/ergm.ego.R

@@ -260,8 +260,6 @@ ergm.ego <- function(formula, popsize=1, offset.coef=NULL, constraints=~.,..., c
   out <- list(v=v, m=m, formula=formula, ergm.formula=ergm.formula, offset.coef=offset.coef, ergm.offset.coef=ergm.offset.coef, egor=egor, ppopsize=ppopsize, popsize=popsize, constraints=constraints, netsize.adj=if(nsa) adj.update, call=ergm.ego_call)
 
   if(do.fit){
-    control$ergm$force.main <- TRUE
-
     ergm.fit <- ergm(ergm.formula, target.stats=m, offset.coef=ergm.offset.coef, constraints=constraints, ..., eval.loglik=FALSE,control=control$ergm)
     if(is.curved(ergm.fit)) warning("Theory of egocentric inference and particularly of variance calculation for curved ERGMs is not well understood; standard errors might not be reliable.")