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