diff --git a/R/latent_model.R b/R/latent_model.R index 119e2ae67..de21666aa 100644 --- a/R/latent_model.R +++ b/R/latent_model.R @@ -1,9 +1,10 @@ #' Convert an object to an `epidist_latent_model` object #' #' @param data An object to be converted to the class `epidist_latent_model` +#' @param ... Additional arguments passed to methods. #' @family latent_model #' @export -as_epidist_latent_model <- function(data) { +as_epidist_latent_model <- function(data, ...) { UseMethod("as_epidist_latent_model") } @@ -11,11 +12,12 @@ as_epidist_latent_model <- function(data) { #' The latent model method for `epidist_linelist_data` objects #' #' @param data An `epidist_linelist_data` object +#' @param ... Not used in this method. #' @method as_epidist_latent_model epidist_linelist_data #' @family latent_model #' @autoglobal #' @export -as_epidist_latent_model.epidist_linelist_data <- function(data) { +as_epidist_latent_model.epidist_linelist_data <- function(data, ...) { assert_epidist(data) data <- data |> mutate( diff --git a/R/marginal_model.R b/R/marginal_model.R index dd4c136d3..ee8a20d9b 100644 --- a/R/marginal_model.R +++ b/R/marginal_model.R @@ -15,12 +15,13 @@ as_epidist_marginal_model <- function(data, ...) { #' relative observation times to Inf. Observation times greater than #' `obs_time_threshold` times the maximum delay will be set to Inf to improve #' model efficiency. Default is 2. +#' @param ... Not used in this method. #' @method as_epidist_marginal_model epidist_linelist_data #' @family marginal_model #' @autoglobal #' @export as_epidist_marginal_model.epidist_linelist_data <- function( - data, obs_time_threshold = 2) { + data, obs_time_threshold = 2, ...) { assert_epidist(data) data <- data |> diff --git a/man/as_epidist_latent_model.Rd b/man/as_epidist_latent_model.Rd index 9f9a419aa..f63e925c3 100644 --- a/man/as_epidist_latent_model.Rd +++ b/man/as_epidist_latent_model.Rd @@ -4,10 +4,12 @@ \alias{as_epidist_latent_model} \title{Convert an object to an \code{epidist_latent_model} object} \usage{ -as_epidist_latent_model(data) +as_epidist_latent_model(data, ...) } \arguments{ \item{data}{An object to be converted to the class \code{epidist_latent_model}} + +\item{...}{Additional arguments passed to methods.} } \description{ Convert an object to an \code{epidist_latent_model} object diff --git a/man/as_epidist_latent_model.epidist_linelist_data.Rd b/man/as_epidist_latent_model.epidist_linelist_data.Rd index 3b91956df..5e8e86af8 100644 --- a/man/as_epidist_latent_model.epidist_linelist_data.Rd +++ b/man/as_epidist_latent_model.epidist_linelist_data.Rd @@ -4,10 +4,12 @@ \alias{as_epidist_latent_model.epidist_linelist_data} \title{The latent model method for \code{epidist_linelist_data} objects} \usage{ -\method{as_epidist_latent_model}{epidist_linelist_data}(data) +\method{as_epidist_latent_model}{epidist_linelist_data}(data, ...) } \arguments{ \item{data}{An \code{epidist_linelist_data} object} + +\item{...}{Not used in this method.} } \description{ The latent model method for \code{epidist_linelist_data} objects diff --git a/man/as_epidist_marginal_model.epidist_linelist_data.Rd b/man/as_epidist_marginal_model.epidist_linelist_data.Rd index 2754f4058..3eac380c6 100644 --- a/man/as_epidist_marginal_model.epidist_linelist_data.Rd +++ b/man/as_epidist_marginal_model.epidist_linelist_data.Rd @@ -4,7 +4,7 @@ \alias{as_epidist_marginal_model.epidist_linelist_data} \title{The marginal model method for \code{epidist_linelist_data} objects} \usage{ -\method{as_epidist_marginal_model}{epidist_linelist_data}(data, obs_time_threshold = 2) +\method{as_epidist_marginal_model}{epidist_linelist_data}(data, obs_time_threshold = 2, ...) } \arguments{ \item{data}{An \code{epidist_linelist_data} object} @@ -13,6 +13,8 @@ relative observation times to Inf. Observation times greater than \code{obs_time_threshold} times the maximum delay will be set to Inf to improve model efficiency. Default is 2.} + +\item{...}{Not used in this method.} } \description{ The marginal model method for \code{epidist_linelist_data} objects