bootstrapped_dist_fit example produces warnings about too many samples

[sbfnk]

Summary:
It uses 10 bootstrap iterations with 1000 samples resulting in 100 each which yields a warning (instead this should have 1000 each).

Reproducible Steps:

library("EpiNow2")
#> 
#> Attaching package: 'EpiNow2'
#> The following object is masked from 'package:stats':
#> 
#>     Gamma

delays <- rlnorm(500, log(5), 1)
out <- bootstrapped_dist_fit(delays,
  samples = 1000, bootstraps = 10,
  dist = "lognormal"
)
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.
#> Warning in EpiNow2::dist_fit(values, samples = samples, dist = dist): `samples`
#> must be at least 1000. Now setting it to 1000 internally.

^{Created on 2024-07-17 with reprex v2.1.0}