diff --git a/DESCRIPTION b/DESCRIPTION index 22c0d0ed..552c45de 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: ergm -Version: 4.8.0-7549 -Date: 2025-01-09 +Version: 4.8.0-7554 +Date: 2025-01-11 Title: Fit, Simulate and Diagnose Exponential-Family Models for Networks Authors@R: c( person(c("Mark", "S."), "Handcock", role=c("aut"), email="handcock@stat.ucla.edu"), diff --git a/src/etamap.c b/src/etamap.c index 94e11499..1078c1de 100644 --- a/src/etamap.c +++ b/src/etamap.c @@ -124,6 +124,7 @@ void ergm_etagrad(double *theta, SEXP etamap, double *etagrad){ for(unsigned int i = 0; i < ncurved; i++){ SETUP_CALL(gradient); + if(nfrom == 0) continue; double *g = REAL(eval(call, R_EmptyEnv)); double *dest = etagrad1+from+to*ntheta; for(unsigned int j=0; j