### R code from vignette source 'C:/Bendix/teach/NSCE/2022/pracs/pop-lifetable-sol.rnw'

###################################################
### code chunk number 1: pop-lifetable-sol.rnw:17-21
###################################################
num <- c(65396,34603,7430)
den <- rep(95928,3)
names( num ) <- c("70","80","90")
round( num/den, 4 )


###################################################
### code chunk number 2: pop-lifetable-sol.rnw:39-40
###################################################
-log(47964/50911)/(-log(1-0.06271))