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
.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
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)
Run the code above in your browser using DataLab