data_sim_reward {Petersen}

Simulated data for reward tags used to estimate reporting rate

Description

This is simulated data with the parameter values given in details.

Usage

data(data_sim_reward)

Format

data_sim_reward

A data frame with many rows and 2 columns

cap_hist.

Capture history (1000, 1010, 0P00, 0P0P, 0010).

freq.

Number of fish with this history.

Details

 data_sim_reward <-LP_TL_simulate(
      dt_type=dt_type,  #  permanent tag
      N=10000,
      cov1=function(N)         {rep(1,N)},
      cov2=function(cov1)      {rep(1,  length(cov1))},
      p1  =function(cov1, cov2){rep(.1, length(cov1))},
      pST =function(cov1, cov2){rep(.75,length(cov1))},
      rho1=function(cov1, cov2){rep(.70,length(cov1))},
      rho2=function(cov1, cov2){rep(1,  length(cov1))},  # permanent second tag
      p2  =function(cov1, cov2){rep(.1, length(cov1))},
      seed=45985, trace=FALSE)
# we don't have fish with both tags
data_sim_reward$cap_hist <- gsub("1P", "0P", data_sim_reward$cap_hist)