nobs.ergm() now gets its information from ergm$info$n_info_dyads if available.

krivit · krivit · commit 005488495f63 · 2024-12-29T18:55:15.000+11:00
fixes #574
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ergm
-Version: 4.8.0-7524
-Date: 2024-12-27
+Version: 4.8.0-7525
+Date: 2024-12-29
 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/R/logLik.ergm.R b/R/logLik.ergm.R
@@ -201,9 +201,8 @@ nobs.ergm <- function(object, ...){
     warning("The number of observed dyads in this network is ill-defined due to complex constraints on the sample space. Disable this warning with ",sQuote("options(ergm.loglik.warn_dyads=FALSE)"),".")
   }
 
-  NVL3(NVL(object$mple.null.lik, object$mple.lik, object$null.lik, object$mle.lik),
-       attr(.,"nobs"),
-       object$info$n_info_dyads)
+  object$info$n_info_dyads %||%
+    attr(NVL(object$mple.null.lik, object$mple.lik, object$null.lik, object$mle.lik), "obs")
 }
 
 NO_NULL_IMPLICATION <- "This means that all likelihood-based inference (LRT, Analysis of Deviance, AIC, BIC, etc.) is only valid between models with the same reference distribution and constraints."

Original file line number	Diff line number	Diff line change
`@@ -201,9 +201,8 @@ nobs.ergm <- function(object, ...){`
`201`	`201`	`warning("The number of observed dyads in this network is ill-defined due to complex constraints on the sample space. Disable this warning with ",sQuote("options(ergm.loglik.warn_dyads=FALSE)"),".")`
`202`	`202`	`}`
`203`	`203`
`204`		`- NVL3(NVL(object$mple.null.lik, object$mple.lik, object$null.lik, object$mle.lik),`
`205`		`- attr(.,"nobs"),`
`206`		`- object$info$n_info_dyads)`
	`204`	`+ object$info$n_info_dyads %\|\|%`
	`205`	`+ attr(NVL(object$mple.null.lik, object$mple.lik, object$null.lik, object$mle.lik), "obs")`
`207`	`206`	`}`
`208`	`207`
`209`	`208`	`NO_NULL_IMPLICATION <- "This means that all likelihood-based inference (LRT, Analysis of Deviance, AIC, BIC, etc.) is only valid between models with the same reference distribution and constraints."`