#loads and show
data(demoita)
head(demoita)
#creates ips55 life and actuarial table
lxIPS55M<-with(demoita, IPS55M)
pos2Remove<-which(lxIPS55M lxIPS55M<-lxIPS55M[-pos2Remove]
xIPS55M<-seq(0,length(lxIPS55M)-1,1)
#create the table
IPS55Mlt=new("lifetable",x=xIPS55M,lx=lxIPS55M,name="IPS55M")
#shows number of death between 90 and 92
dxt(object=IPS55Mlt, x=90, t=2)
Run the code above in your browser using DataLab