Description Usage Arguments Examples
Set distribution fitting method.
1 2 3 4 | setfitmethod(this, ...) <- value
## S4 replacement method for signature 'FitDist,character'
setfitmethod(this) <- value
|
this |
FitDist Object |
... |
Additional function arguments |
value |
A character string: "mle", "mme", or "qme" |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | library(cascsim)
data(claimdata)
#frequecy fitting example
findex <- new("Index", startDate = as.Date("2012-01-01"), tabulate=TRUE, monthlyIndex = c(rep(1,11),
cumprod(c(1,rep(1.5^(1/12),11))),cumprod(c(1.5,rep((1.3/1.5)^(1/12),11))),
cumprod(c(1.3,rep((1.35/1.3)^(1/12),11))),cumprod(c(1.35,rep((1.4/1.35)^(1/12),11))),1.4))
rawdata <- as.data.frame(as.Date(claimdata[(claimdata[,"LoB"]=="Auto" &
claimdata[,"Type"]=="H"),]$occurrenceDate))
colnames(rawdata)<-"occurrenceDate"
xFit <- new("FitDist", observation=rawdata, trend=findex,startDate = as.Date("2012-01-01"),
method="mle",ifreq=TRUE,idate=TRUE, freq="Monthly")
setfitmethod(xFit) <- "mme"
xFit@method
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.