Added a logLik() method for ergm.ego objects, printing an informative…

… error message. fixes #81
statnet · Oct 10, 2024 · d93693f · d93693f
1 parent 9d312e2
commit d93693f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -17,6 +17,7 @@ S3method(ergm.ego_get_vattr,"function")
 S3method(ergm.ego_get_vattr,character)
 S3method(ergm.ego_get_vattr,formula)
 S3method(gof,ergm.ego)
+S3method(logLik,ergm.ego)
 S3method(mixingmatrix,egor)
 S3method(na.omit,egor)
 S3method(plot,gof.ergm.ego)

diff --git a/R/summary.ergm.ego.R b/R/summary.ergm.ego.R
@@ -27,3 +27,9 @@ print.summary.ergm.ego <- function (x, ...){
   NextMethod("print", object=x, ..., print.deviances=FALSE)
 }
 
+#' @method logLik ergm.ego
+#' @export
+#' @noRd
+logLik.ergm.ego <- function(object, ...){
+  stop("Log-likelihood is not meaningful for moments-based inference used by ", sQuote("ergm.ego()"), ".")
+}