##example with multiple-season occupancy model modified from ?colext
if (FALSE) {
require(unmarked)
data(frogs)
umf <- formatMult(masspcru)
obsCovs(umf) <- scale(obsCovs(umf))
siteCovs(umf) <- rnorm(numSites(umf))
yearlySiteCovs(umf) <- data.frame(year = factor(rep(1:7,
numSites(umf))))
##model with with year-dependent transition rates
fm.yearly <- colext(psiformula = ~ 1, gammaformula = ~ year,
epsilonformula = ~ year,
pformula = ~ JulianDate + I(JulianDate^2),
data = umf)
##check for high SE's and report highest
##across all parameter types
checkParms(fm.yearly, simplify = TRUE)
##check for high SE's and report highest
##for each parameter type
checkParms(fm.yearly, simplify = FALSE)
detach(package:unmarked)
}
##example from Agresti 2002 of logistic regression
##with parameters estimated at the boundary (complete separation)
if (FALSE) {
x <- c(10, 20, 30, 40, 60, 70, 80, 90)
y <- c(0, 0, 0, 0, 1, 1, 1, 1)
m1 <- glm(y ~ x, family = binomial)
checkParms(m1)
}
Run the code above in your browser using DataLab