conduct_multiple_surveys {AnglerCreelSurveySimulation}

Conduct multiple simulations of a survey

Description

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.

Usage

conduct_multiple_surveys(n_sims, ...)

Arguments

n_sims

The number of simulations to be conducted in the simulation of interest.

...

Arguments to be passed to other subfunctions

Details

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.

Value

Estimate catch (Ehat), the catch rate calculated by the ratio of means, the true, observed catch, and the actual catch rate (mean_lambda).

Author(s)

Steven H. Ranney

See Also

make_anglers

get_total_values

simulate_bus_route

Examples

#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)