m Deferring period. Assumed to be 1 whether missing wrong m=0 by default

[rolandkofler]

require(lifecontingencies)
data("demoGermany")
lifetableMale = probs2lifetable(probs= demoGermany$qxMale, radix = 10000, type = "qx", name= "DE 1994 Male")
actuarialTable = new("actuarialtable",x=lifetableMale@x, lx=lifetableMale@lx, interest=0.02, name="German Male '94 actuarialtable")
age = 109
limit = 111
payout = 2000 

payout * axn(actuarialtable = actuarialTable, 
             x = age, 
             n = limit, 
             i = actuarialTable@interest,
             k = 1)

results in: 4762.061

As does

payout * axn(actuarialtable = actuarialTable, 
             x = age, 
             n = limit, 
             i = actuarialTable@interest,
             m = 0,
             k = 1)