Add coef and logLik methods.

Author: SebKrantz

NAMESPACE

@@ -2,7 +2,9 @@
 
 S3method(as.data.frame,dfm)
 S3method(as.data.frame,dfm_forecast)
+S3method(coef,dfm)
 S3method(fitted,dfm)
+S3method(logLik,dfm)
 S3method(plot,ICr)
 S3method(plot,dfm)
 S3method(plot,dfm_forecast)

R/methods.R

@@ -73,6 +73,13 @@ print.dfm <- function(x, digits = 4L, ...) {
   return(invisible(x))
 }
 
+#' @export
+coef.dfm <- function(object, ...) list(A = object$A, C = object$C)
+coefficients.dfm <- coef.dfm
+
+#' @export
+logLik.dfm <- function(object, ...) object$loglik[length(object$loglik)]
+
 #' @rdname summary.dfm
 #' @param method character. The factor estimates to use: one of \code{"qml"}, \code{"2s"} or \code{"pca"}.
 #' @param \dots not used.