Use NetworkInitializeLike() where possible.

Author: krivit

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: tergm
-Version: 4.2.2-2612
-Date: 2025-04-08
+Version: 4.2.2-2618
+Date: 2025-12-17
 Title: Fit, Simulate and Diagnose Models for Network Evolution Based on Exponential-Family Random Graph Models
 Authors@R: c(
         person(c("Pavel", "N."), "Krivitsky", role=c("aut","cre"), email="pavel@statnet.org", comment=c(ORCID="0000-0002-9101-3362")),
@@ -17,7 +17,7 @@ Authors@R: c(
         person("Chad", "Klumb", role=c("ctb"), email="cklumb@gmail.com"),
         person("Adrien", "Le Guillou", role=c("ctb"), email="git@aleguillou.org", comment=c(ORCID="0000-0002-4791-418X")))
 Depends:
-    ergm (>= 4.9.0),
+    ergm (>= 4.11.0),
     network (>= 1.19.0),
     networkDynamic (>= 0.11.5)
 Imports:

src/changestats_auxnet.c

@@ -17,7 +17,7 @@
 // from last time step and any changed edges. The storage
 // auxnet->onwp should be initialized as y0 xor y1 at the end.
 I_CHANGESTAT_FN(i__discord_lt_net_Network){
-  I_AUXNET(NetworkInitialize(NULL, NULL, 0, N_NODES, DIRECTED, BIPARTITE));
+  I_AUXNET(NetworkInitializeLike(nwp));
   GET_AUX_STORAGE(1, StoreTimeAndLasttoggle, dur_inf);
   TailHead dyad;
   kh_foreach_key(dur_inf->discord, dyad, {

src/discordTNT.c

@@ -222,8 +222,8 @@ MH_I_FN(Mi_discordBDStratTNT) {
     sto->BDTDNE[i] = HashELInitialize(0, NULL, NULL, FALSE);
     sto->discordantEdges[i] = HashELInitialize(0, NULL, NULL, FALSE);
   }
-  sto->combined_BDTDNE = NetworkInitialize(NULL, NULL, 0, N_NODES, DIRECTED, BIPARTITE);
-  sto->combined_nonBDTDNE = NetworkInitialize(NULL, NULL, 0, N_NODES, DIRECTED, BIPARTITE);
+  sto->combined_BDTDNE = NetworkInitializeLike(nwp);
+  sto->combined_nonBDTDNE = NetworkInitializeLike(nwp);
   sto->transferEL = UnsrtELInitialize(0, NULL, NULL, FALSE);
 
   sto->discordance_fraction = asReal(getListElement(MHp->R, "discordance_fraction"));  
@@ -242,8 +242,8 @@ MH_X_FN(Mx_discordBDStratTNT) {
     // for now, destroy and recreate each time step (can we do this more efficiently?)
     NetworkDestroy(sto->combined_BDTDNE);
     NetworkDestroy(sto->combined_nonBDTDNE);
-    sto->combined_BDTDNE = NetworkInitialize(NULL, NULL, 0, N_NODES, DIRECTED, BIPARTITE);
-    sto->combined_nonBDTDNE = NetworkInitialize(NULL, NULL, 0, N_NODES, DIRECTED, BIPARTITE);
+    sto->combined_BDTDNE = NetworkInitializeLike(nwp);
+    sto->combined_nonBDTDNE = NetworkInitializeLike(nwp);
   }
 }