search for: windowright

...rep(0.13 , InputDim ) # lapse rate for price factor = 1 ElasticityLeft  <- rep( 10, InputDim ) # left elasticity for price factor = 1 ElasticityRight  <- rep(10, InputDim ) # right elasticity for price factor = 1 WindowLeft <-  rep( 1 , InputDim ) # friction window price factor left bound WindowRight <- rep( 1, InputDim ) # friction window price factor right bound MinLapseRate <- rep( 0 , InputDim ) # min lapse rate MaxLapseRate <- rep( 1 , InputDim ) # min lapse rate Alpha <- 0.5 #acquisition operator ###############  lapse param end Price <- rep(1 , InputDim ) # Axa price for...