Description Usage Arguments Details Value Author(s) See Also Examples
View source: R/conduct_multiple_surveys.R
This function uses make_anglers
and get_total_values
to conduct multiple bus-route or traditional access point creel surveys (from
the number provided to the n_sims
argument) of a population of anglers.
1 | conduct_multiple_surveys(n_sims, ...)
|
n_sims |
The number of simulations to be conducted in the simulation of interest. |
... |
Arguments to be passed to other subfunctions |
Because this function is merely a wrapper for the simulate_bus_route
code, the user still needs to set start_time
, wait_time
,
n_anglers
, n_sites
, and sampling_prob
as objects. These
can be passed through the ...
argument or through setting wait_time
and others outside of the function call itself.
Estimate catch (Ehat), the catch rate calculated by the ratio of means, the true, observed catch, and the actual catch rate (mean_lambda).
Steven H. Ranney
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | #Simulation 1
start_time <- c(1, 3.5, 6.5)
wait_time <- c(2, 2, 3)
n_anglers <- c(10,10,50)
n_sites <- 3
sampling_prob <- sum(wait_time)/12
mean_catch_rate <- 3
n_sims <- 10
set.seed(256)
conduct_multiple_surveys(n_sims = n_sims, start_time = start_time, wait_time = wait_time,
n_anglers = n_anglers, n_sites = n_sites,
sampling_prob = sampling_prob, mean_catch_rate = mean_catch_rate)
#Simulation 2
start_time <- 0
wait_time <- 8
n_anglers <- 100
n_sites <- 1
sampling_prob <- 8/10
mean_catch_rate <- 2.5
#One survey/week for a year
conduct_multiple_surveys(n_sims = 52, start_time, wait_time, n_anglers, n_sites, sampling_prob,
mean_catch_rate, fishing_day_length = 10)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.