# NOT RUN {
data(soa08Act)
n=10000
lifecontingency="Axyz"
tablesList=list(soa08Act,soa08Act)
x=c(60,60)
i=0.06
m=0
status="joint"
t=30
k=1
#
APV=Axyzn(tablesList=tablesList,x=x,n=t,m=m,k=k,status=status,type="EV")
samples<-rLifeContingenciesXyz(n=n,lifecontingency = lifecontingency,
tablesList = tablesList,x=x,t=t,m=m,k=k,status=status,
parallel=FALSE)
APV
mean(samples)
# }
Run the code above in your browser using DataLab