View source: R/model-comparison.R
lrtCapwire | R Documentation |
Performs Likelihood Ratio Test to compare model fits between the Equal Capture Model (ECM) and Two Innate-Rates Model (TIRM).
A parametric bootstrap is used to generate a null-distribution for the likelihood ratio test-statistic to assess significance
lrtCapwire(ecm, tirm, bootstraps = 100)
ecm |
A |
tirm |
A |
bootstraps |
The number of parameteric bootstraps to perform to generate the null distribution |
The maximum likelihood estimate for population size under the ECM model is used to simulate data under the ECM model. The data is then fit to both the ECM and TIRM models and the likelihood ratio test is evaluated.
The observed Likelihood Ratio statistic is then compared to the distribution of likelihood ratio statistics observed when the null model is true in order to estimate a p-value.
In most applications of likelihood ratio tests, the more parameterized model will always have a higher likelihood. However, this is not necessarily the case for the models implemented in capwire
.The likelihood involves a combinatorial term which denotes the number of ways a population could give rise to the observed vector of counts. As such, for some data sets (such as those for which the assumptions of the ECM model are valid),there will be more ways to obtain the observed data if the population is not subdivided into classes.
A list consisting of the following items
Likelihood ratio
P-value for the siginficance of the likelihood ratio test derived from a parametric bootstrap
Matthew W. Pennell
Miller C. R., P. Joyce and L.P. Waits. 2005. A new method for estimating the size of small populations from genetic mark-recapture data. Molecular Ecology 14:1991-2005.
Pennell, M. W., C. R. Stansbury, L. P. Waits and C. R. Miller. 2013. Capwire: a R package for estimating population census size from non-invasive genetic sampling. Molecular Ecology Resources 13:154-157.
fitTirm
, fitEcm
## Simulate data under Equal Capture Model data <- simEcm(n=20, s=60) ## Fit Equal Capture Model (ECM) to count data ecm <- fitEcm(data, max.pop=200) ## Fit Two-Innate Rates Model (TIRM) to count data tirm <- fitTirm(data, max.pop=200) ## Perform Likelihood Ratio Test lrtCapwire(ecm=ecm, tirm=tirm, bootstraps=10)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.