Export all methods

NAMESPACE

@@ -5,10 +5,16 @@ S3method(anova,list)
 S3method(coef,flexcm)
 S3method(equitest,flexcm)
 S3method(equitest,list)
+S3method(fitted,flexcm)
+S3method(logLik,flexcm)
+S3method(model.matrix,flexcm)
 S3method(predict,flexcm)
 S3method(print,anova.flexcm)
 S3method(print,equitest.flexcm)
+S3method(print,flexcm)
+S3method(print,summary.flexcm)
 S3method(summary,flexcm)
+S3method(vcov,flexcm)
 export(compute_logk)
 export(compute_logz)
 export(dcmp)

R/inference.R

@@ -49,8 +49,9 @@ summary.flexcm <- function(object, correlation = FALSE, ...) {
 }
 
 #-----------------------------------------------------------------------
-# Print method for summary COM-Poisson models
+# Print method for summary flexible count models models
 #' @rdname flexcm-methods
+#' @export
 #'
 print.summary.flexcm <- function(x,
                                  digits = max(3L, getOption("digits") - 3L),

R/likelihoods.R

@@ -207,7 +207,7 @@ flexcm_fit <- function(llfun, X, y,
 #'   parameter for Poisson-Tweedie family. Is \code{NULL}, the power
 #'   parameter will be estimated.
 #' @param ... Arguments to be used by \code{\link{flexcm_fit}}.
-#' @return An object of class \code{cmpreg}.
+#' @return An object of class \code{flexcm}.
 #' @author Eduardo Jr <[email protected]>
 #' @importFrom stats model.frame model.matrix model.response setNames
 #' @importFrom utils modifyList capture.output

R/methods.R

@@ -13,8 +13,11 @@ NULL
 #-----------------------------------------------------------------------
 # Print method
 #' @rdname flexcm-methods
+#' @export
 #'
-print.flexcm <- function(x, digits = max(3L, getOption("digits") - 3L)) {
+print.flexcm <- function(x,
+                         digits = max(3L, getOption("digits") - 3L),
+                         ...) {
   name <- `_get_model_name`(x$model)
   cat(sprintf("\n%s regression models", name), sep = "")
   cat("\nCall:  ",
@@ -46,6 +49,7 @@ print.flexcm <- function(x, digits = max(3L, getOption("digits") - 3L)) {
 #-----------------------------------------------------------------------
 # Get the log-likelihood
 #' @rdname flexcm-methods
+#' @export
 #'
 logLik.flexcm <- function(object, ...) {
   if (!missing(...))
@@ -71,6 +75,7 @@ coef.flexcm <- function(object, ...) {
 #-----------------------------------------------------------------------
 # Get the variance-covariance matrix
 #' @rdname flexcm-methods
+#' @export
 #'
 vcov.flexcm <- function(object, ...) {
   if (!missing(...))
@@ -81,6 +86,7 @@ vcov.flexcm <- function(object, ...) {
 #-----------------------------------------------------------------------
 # Get the design matrices
 #' @rdname flexcm-methods
+#' @export
 #'
 model.matrix.flexcm <- function(object, ...) {
   if (!missing(...))

R/predict.R

@@ -94,6 +94,7 @@ predict.flexcm <- function(object,
 #-----------------------------------------------------------------------
 # Fitted method
 #' @rdname flexcm-methods
+#' @export
 #'
 fitted.flexcm <- function(object, ...) {
   object$fitted