diff --git a/R/latent_individual.R b/R/latent_individual.R index 55c8d7211..86146e106 100644 --- a/R/latent_individual.R +++ b/R/latent_individual.R @@ -72,10 +72,11 @@ as_latent_individual.data.frame <- function(data) { #' `data.frame` with the correct columns. #' #' @param data A `data.frame` containing line list data +#' @param ... ... #' @method epidist_validate epidist_latent_individual #' @family latent_individual #' @export -epidist_validate.epidist_latent_individual <- function(data) { +epidist_validate.epidist_latent_individual <- function(data, ...) { assert_true(is_latent_individual(data)) assert_latent_individual_input(data) assert_names( diff --git a/man/epidist_validate.epidist_latent_individual.Rd b/man/epidist_validate.epidist_latent_individual.Rd index 81d82e537..986b13ded 100644 --- a/man/epidist_validate.epidist_latent_individual.Rd +++ b/man/epidist_validate.epidist_latent_individual.Rd @@ -4,10 +4,12 @@ \alias{epidist_validate.epidist_latent_individual} \title{Validate latent individual model data} \usage{ -\method{epidist_validate}{epidist_latent_individual}(data) +\method{epidist_validate}{epidist_latent_individual}(data, ...) } \arguments{ \item{data}{A \code{data.frame} containing line list data} + +\item{...}{...} } \description{ This function checks whether the provided \code{data} object is suitable for