Displaying 1 result from an estimated 1 matches for "pricefactor".
2009 Jul 31
1
what meaning missing value True /False needed
...enar
}
################################################
# Function giving the lapse rate :
################################################
LapseRate <- function(x, LapseType,CentralLapseRate,
ElasticityLeft, ElasticityRight,WindowLeft, WindowRight,
MinLapseRate,MaxLapseRate )
{
PriceFactor <- 1+x
if (LapseType=="power")
{
if(PriceFactor<WindowLeft)
r <- CentralLapseRate*(PriceFactor/WindowLeft)^ElasticityLeft
else if((PriceFactor<=WindowRight)&(PriceFactor>=WindowLeft ))
r <- CentralLapseRate
else
r <-CentralLapseRate*(PriceFactor/WindowRi...