data(woodchat5)
f <- getFirst(woodchat5$ch)
# Remove animals first captured on the last occasion
last <- which(f==ncol(woodchat5$ch))
f <- f[-last]
age <- woodchat5$age[-last]
x <- createAge(f, age, 20, 2)
head(x)
x[115:120,]
tail(x)
Run the code above in your browser using DataLab