View source: R/conduct_multiple_surveys.R
conduct_multiple_surveys | R Documentation |
This function leverages make_anglers
, get_total_values
,
and simulate_bus_route
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.
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 two of start_time
, wait_time
, and end_time
,
n_anglers
, n_sites
, and fishing_day_length
as objects. These
can be passed through the ...
argument.
Estimate catch (\widehat{E}
), the catch rate calculated by the ratio of means,
the true, observed catch, and the actual catch rate (\overline{\lambda}
).
Steven H. Ranney
make_anglers
check_times
get_total_values
simulate_bus_route
#Simulation 1
start_time <- c(1, 3.5, 5.75)
wait_time <- c(2, 2, 1)
n_anglers <- c(10,10,50)
n_sites <- 3
fishing_day_length <- 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, mean_catch_rate = mean_catch_rate,
fishing_day_length = fishing_day_length)
#Simulation 2
start_time <- 0
wait_time <- 8
n_anglers <- 100
n_sites <- 1
fishing_day_length <- 10
mean_catch_rate <- 2.5
#One survey/week for a year
conduct_multiple_surveys(n_sims = 52, start_time = start_time,
wait_time = wait_time, n_anglers = n_anglers,
n_sites = n_sites, mean_catch_rate,
fishing_day_length = fishing_day_length)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.