# NOT RUN {
ages<-c(23,34,21)
ages<-c(23,34,21)
am(ages,5,10,2,0.05,CSO80MALB,1,"joint",assumption="UDD")
am(ages,0,20,1,0.06,CSO80FALBsmoker,1,"atleast",1)
am(ages,2,15,2,0.07,CSO80FANBsmoker,0.8,"exactly",2,"constant")
# }
Run the code above in your browser using DataLab