summary(gonodontisCH)
m.array(gonodontisCH)
if (FALSE) {
# compare default (CJS) estimates from openCR, MARK
fit <- openCR.fit(gonodontisCH)
predict(fit)
if (require(RMark)) {
MarkPath <- 'c:/Mark/' # customize as needed
if (!all (nchar(Sys.which(c('mark.exe','mark64.exe', 'mark32.exe'))) < 2)) {
mothdf <- RMarkInput(gonodontisCH)
mark(mothdf)
cleanup(ask = FALSE)
} else message ("mark.exe not found")
} else message ("RMark not found")
}
Run the code above in your browser using DataLab