Return an epidist_estimates_data object unchanged

An object carrying the class has already been checked, and the epidist_data methods re-check it whenever it is modified, so nothing is done here.

Usage

# S3 method for class 'epidist_estimates_data'
as_epidist_estimates_data(data, ...)

Arguments

data

The data to convert

...

Not used in this method.

See also

Other estimates_data: as_epidist_estimates_data(), as_epidist_estimates_data.data.frame(), as_epidist_estimates_data.epidist_multivariate(), as_epidist_estimates_data.list(), assert_epidist.epidist_estimates_data(), epidist_estimates_parameters(), epidist_estimates_summaries(), is_epidist_estimates_data(), new_epidist_estimates_data()

Examples

estimates <- epidist_estimates_summaries(
  "A",
  mean = 7.5, n = 120, trunc_adjusted = TRUE
)
#> ℹ No `pwindow` column supplied, assuming a censoring window of 1 (daily
#>   reporting) for every study.
#> ℹ No `swindow` column supplied, assuming a censoring window of 1 (daily
#>   reporting) for every study.
#> ℹ No relative_obs_time column supplied, assuming no observation time limit (no
#>   right truncation) for every study.
#> ℹ No cens_adjusted column supplied, assuming every study used naive integer
#>   date differences without a censoring adjustment.
#> ℹ No max_delay column supplied, using the delay beyond which 1% of the second
#>   moment of a lognormal matched to each study's summaries lies (at least 10 and
#>   at most twenty times the largest reported value, in whole secondary windows)
#>   as the grid cutoff, or five times the largest reported value where nothing
#>   can be matched. Raise it if the delay has a longer tail than that, and lower
#>   it to speed up fitting.
identical(as_epidist_estimates_data(estimates), estimates)
#> [1] TRUE