schleswig <- life.table(schleswig_ma[c("a", "Dx")])
lt.population_size(schleswig, t = 100)
odagsen <- life.table(list(
"corpus mandibulae" = odagsen_cm[c("a", "Dx")],
"margo orbitalis" = odagsen_mo[c("a", "Dx")]
))
lt.population_size(odagsen, e0 = 30, t = 100)
lt.population_size(x = 111, e0 = 32.2, k = 1.2, t = 100)
Run the code above in your browser using DataLab