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

krivit · krivit · commit d93693fcc742 · 2024-10-10T20:55:14.000+11:00
fixes #81
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()"), ".")
+}

Original file line number	Diff line number	Diff line change
`@@ -27,3 +27,9 @@ print.summary.ergm.ego <- function (x, ...){`
`27`	`27`	`NextMethod("print", object=x, ..., print.deviances=FALSE)`
`28`	`28`	`}`
`29`	`29`
	`30`	`+#' @method logLik ergm.ego`
	`31`	`+#' @export`
	`32`	`+#' @noRd`
	`33`	`+logLik.ergm.ego <- function(object, ...){`
	`34`	`+ stop("Log-likelihood is not meaningful for moments-based inference used by ", sQuote("ergm.ego()"), ".")`
	`35`	`+}`