SAN now uses ChangeStatsDo()/ChangeStatsUndo() as well.

statnet · Nov 5, 2024 · 907b6f4 · 907b6f4
1 parent d562a75
commit 907b6f4
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/SAN.c.template.do_not_include_directly.h b/src/SAN.c.template.do_not_include_directly.h
@@ -223,7 +223,7 @@ MCMCStatus DISPATCH_SANMetropolisHastings(DISPATCH_ErgmState *s,
 
     /* Calculate change statistics,
      remembering that tail -> head */
-    PROP_CHANGESTATS;
+    PROP_CHANGESTATS_DO;
 
     /* Always store the proposal for self-tuning. */
     for (unsigned int i = 0; i < nstats; i++){
@@ -262,8 +262,8 @@ MCMCStatus DISPATCH_SANMetropolisHastings(DISPATCH_ErgmState *s,
 	Rprintf("Accepted.\n");
       }
 
-      /* Make proposed toggles (updating timestamps--i.e., for real this time) */
-      for(unsigned int i=0; i < MHp->ntoggles; i++) PROP_COMMIT;
+      /* Make the last (or sole) toggle. */
+      PROP_FINISH;
       /* record network statistics for posterity */
       Rboolean finished = TRUE;
       for (unsigned int i = 0; i < nstats; i++){
@@ -277,6 +277,8 @@ MCMCStatus DISPATCH_SANMetropolisHastings(DISPATCH_ErgmState *s,
       if(verbose>=5){
 	Rprintf("Rejected.\n");
       }
+
+      PROP_CHANGESTATS_UNDO;
     }
   }