search for: lapsetype

...puts CPIRate <- rep(0.02 , InputDim ) # CPI inflation rate LossInflaRate <- rep(0.02 , InputDim) # inflation rate of losses RiskFreeRate <- rep(0.04, InputDim ) # vector of risk free rate RiskRate <- rep(0.06, InputDim ) # vector of risk free rate ################   lapse param begin : LapseType <- rep("linear" , InputDim ) # type of the function used to calculate lapse rate= "power", "logistic", "linear" CentralLapseRate <- rep(0.13 , InputDim ) # lapse rate for price factor = 1 ElasticityLeft  <- rep( 10, InputDim ) # left elasticity for p...