chapmanRobson(x, ...)
## S3 method for class 'default':
chapmanRobson(x, catch, ages2use = age,
zmethod = c("Smithetal", "Hoenigetal", "original"), ...)
## S3 method for class 'formula':
chapmanRobson(x, data, ages2use = age,
zmethod = c("Smithetal", "Hoenigetal", "original"), ...)
## S3 method for class 'chapmanRobson':
summary(object, verbose = FALSE, ...)
## S3 method for class 'chapmanRobson':
confint(object, parm = c("all", "both", "S", "Z"),
level = conf.level, conf.level = 0.95, ...)
## S3 method for class 'chapmanRobson':
plot(x, pos.est = "topright", cex.est = 0.95,
ylab = "Catch", xlab = "Age", col.pt = "gray30", ...)catch~age when used in chapmanRobson. An object saved from chapmanRobson (i.e., of class chapmanRobson) when used in tx is a formula.x formula can be found. Not used if x is not a formula.chapmanRobson call (i.e., of class chapmanRobson).FALSE; default) or a more verbose statement.conf.level. Used for compatability with the generic confint function."bottomright", "bottom", "bottomleft", "left", "topleft", "top", "topr"Catch" is the default)."Age" is the default).agesurv in rockbass data.frame in ages2use to isolate only the catch and ages on the descending limb.
The Chapman-Robson method provides an estimate of the annual survival rate, with the annual mortality rate (A) determined by 1-S. The instantaneous mortality rate is often computed as -log(S). However, Hoenig et al. (1983) showed that this produced a biased (over)estimate of Z and provided a correction. The correction is applied by setting zmethod="Hoenigetal". Smith et al. (2012) showed that the Hoenig et al. method should be corrected for a variance inflation factor. This correction is applied by setting zmethod="Smithetal" (which is the default behavior). Choose zmethod="original" to use the original estimates for Z and it's SE as provided by Chapman and Robson.agesurv in catchCurve and agesurvcl in metaM for empirical methods to estimate natural mortality.data(BrookTroutTH)
plot(catch~age,data=BrookTroutTH,pch=19)
## demonstration of formula notation
cr1 <- chapmanRobson(catch~age,data=BrookTroutTH,ages2use=2:6)
summary(cr1)
summary(cr1,verbose=TRUE)
confint(cr1)
plot(cr1)
## demonstration of excluding ages2use
cr2 <- chapmanRobson(catch~age,data=BrookTroutTH,ages2use=-c(0,1))
summary(cr2)
plot(cr2)
## demonstration of ability to work with missing age classes
age <- c( 2, 3, 4, 5, 7, 9,12)
ct <- c(100,92,83,71,56,35, 1)
cr3 <- chapmanRobson(age,ct,4:12)
summary(cr3)
plot(cr3)Run the code above in your browser using DataLab