irm_cr(relyrs = NULL, recapyrs = NULL, N = NULL, recapharv = NULL,
recaprel = NULL, hlambda = NULL, rlambda = NULL, hphi = NULL,
rphi = NULL, hmrate = NULL, Fyr = NULL, FAyr = NULL, Myr = NULL,
initial = c(0.1,0.05,0.1), lower = c(0.0001,0.0001,0.0001),
upper=c(5,5,5),maxiter=10000)
tag_model_avg
function.
varF + hmrate^2*varFA + varM + 2*sum(cov(F,M)+
hmrate^2*cov(F,FA)+hmrate^2*cov(FA,M))
, and the variance of survival (S) is calculated from Z using the delta method.
The optim
routine is used to find the parameters that minimize the -1*negative log-likelihood.The program allows the configuration of different model structures (biological realistic models) for the estimation of fishing, natural, and tag mortalities. Consider the following examples:
Example 1
Release years range from 1991 to 2003 and recovery years from 1991 to 2003. One model structure might be constant
fishing mortality estimates over the recovery years of 1991-1994 and 1995-2003, one constant estimate of tag mortality
and one constant estimate of natural mortality for the entire recovery period. To designate this model structure,
the beginning year of each interval is assigned to the Fyr
vector (e.g.,Fyr<-c(1991, 1995)
), and the
beginning year of the recovery period is assigned to the FAyr
vector and the Myr
vector
(e.g., FAyr<-c(1991)
; Myr<-c(1991)
). The first value of each vector must always be the beginning year
of the recovery period regardless of the model structure.
Example 2
Release years range from 1991 to 2003 and recovery years from 1991 to 2003. One model might be fishing and tag mortality estimates for each year of recovery years and two constant estimates of natural mortality for 1991-1996 and 1997-2003. To designate this model structure, one value for each year is assigned to the Fyr and FAyr vectors (e.g., Fyr<-c(1991,1992,1993,1994,1995,1996,1997, 1998,1999,2000,2001,2002,2003 and FAyr<-c(1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003)), and the beginning years of the natural mortality intervals are assigned to the Myr vector (e.g.,Myr<-c(1991,1997)).
Averaging of model results can be accomplished using the function tag_model_avg
.
Hoenig, J. M, N. J. Barrowman, W. S. Hearn, and K. H. Pollock. 1998. Multiyear tagging studies incorporating fishing effort data. Canadian Journal of Fisheries and Aquatic Sciences 55: 1466-1476.
Jiang, H. 2005. Age-dependent tag return models for estimating fishing mortality, natural mortality and selectivity. Doctoral dissertation. North Carolina State University, Raleigh.
Jiang, H., K. H. Pollock, C. Brownie, J. M. Hoenig, R. J. Latour, B. K. Wells, and J. E. Hightower. 2007. Tag return models allowing for harvest and catch and release: evidence of environmental and management impacts on striped bass fishing and natural mortality rates. North Amercian Journal of Fisheries Management 27:387-396.
irm_h
tag_model_avg
## Data come from Appendix Table A2 and model structure from model (a) in
## Table 3.2 of Jiang (2005)
## Example takes a bit of time to run
## Not run:
# data(Jiang)
# model1<-irm_cr(relyrs = Jiang$relyrs, recapyrs = Jiang$recapyrs,
# N = Jiang$N, recapharv = Jiang$recapharv, recaprel = Jiang$recaprel,
# hlambda = Jiang$hlambda, rlambda = Jiang$rlambda, hphi = Jiang$hphi,
# rphi = Jiang$rphi, hmrate = Jiang$hmrate, Fyr = Jiang$Fyr,
# FAyr = Jiang$FAyr, Myr = Jiang$Myr, initial = c(0.1,0.05,0.1),
# lower = c(0.0001,0.0001,0.0001), upper=c(5,5,5),maxiter=10000)
# ## End(Not run)
Run the code above in your browser using DataLab