# NOT RUN {
ages<-c(23,33,33)
Em(ages,15,0.04,CSO80MANB,1,"joint")
Em(ages,20.5,0.04,CSO80MANB,1,"joint",assumption = "constant",cap= 1)
Em(ages,10.5,0.04,CSO80MANB,1,"joint",assumption = "UDD", cap=1)
ages<-c(20,23,24,25)
Em(ages,15,0.04,CSO80MANB,1,"exactly",1,"none",1)
Em(ages,24.2,0.04,CSO80MANB,1,"exactly",2,"constant",1)
Em(ages,8.2,0.04,CSO80MANB,1,"exactly",3,"UDD",1)
ages<-c(40,42,56,57,58,59)
Em(ages,15,0.04,CSO80MANB,1,"atleast",1,"none",1)
Em(ages,25.5,0.04,CSO80MANB,1,"atleast",4,"constant",1)
Em(ages,15.3,0.04,CSO80MANB,1,"atleast",3,"UDD",1)
# }
Run the code above in your browser using DataLab