summary(rev(ovenCH), terse = TRUE)
# These three models give the same result for gamma except for
# gamma(1982) which is confounded with p and not separately estimable:
if (FALSE) {
dipperPradel <- openCR.fit(dipperCH, type = "Pradelg", model = list(p~t, phi~t, gamma~t))
revdipper <- openCR.fit(rev(dipperCH), model=list(p~t, phi~t))
dipperJSSA <- openCR.fit(dipperCH, type='JSSAgCL', model=list(p~t, phi~t, gamma~t))
predict(dipperPradel)$gamma
predict(revdipper)$phi
predict(dipperJSSA)$gamma
}
Run the code above in your browser using DataLab