claimFitting | R Documentation |
Claim data fitting analysis at line/type/status level
claimFitting(object, claimData, ...) ## S4 method for signature 'Simulation,data.frame' claimFitting( object, claimData, startDate = as.Date("2012-01-01"), evaluationDate = as.Date("2016-12-31"), lineList = object@lines, typeList = object@types, discreteDist = c("Poisson", "NegativeBinomial", "Geometric"), continuousDist = c("Normal", "Lognormal", "Pareto", "Weibull", "Gamma", "Uniform", "Exponential"), copulaList = c("normal"), fReportLag = TRUE, fSettlementLag = TRUE, fFrequency = TRUE, fSeverity = TRUE, fSSRCorrelation = TRUE, fFreqCorrelation = TRUE, copulaTest = TRUE, iTotalLoss = TRUE, fDeductible = TRUE, fLimit = TRUE, check = TRUE )
object |
Simulation object |
claimData |
claim data including existing claims for RBNER and claim reopenness analysis |
... |
Additional parameters that may or may not be used. |
startDate |
Date after which claims are analyzed; |
evaluationDate |
Date of evaluation for existing claims and IBNR; |
lineList |
List of business lines to be included in claim fitting; |
typeList |
List of claim types to be included in claim fitting; |
discreteDist |
List of discrete distributions to try fitting (report lag, settlemet lag, frequency); |
continuousDist |
List of continuous distribution to try fitting (severity); |
copulaList |
List of copula to try fitting; |
fReportLag |
Boolean variable to indicate whether report lag needs to be fitted; |
fSettlementLag |
Boolean variable to indicate whether settlement lag needs to be fitted; |
fFrequency |
Boolean variable to indicate whether monthly frequency needs to be fitted; |
fSeverity |
Boolean variable to indicate whether severity needs to be fitted; |
fSSRCorrelation |
Boolean variable to indicate whether copula among severity, report lag and settlement lag needs to be fitted; |
fFreqCorrelation |
Boolean variable to indicate whether copula among frequencies of business lines needs to be fitted. |
copulaTest |
Whether to test copula. The testing could take a very long time; |
iTotalLoss |
Boolean variable to indicate whether total loss before deductible and limit is available for severity fitting; |
fDeductible |
Boolean variable to indicate whether deductible empirical distribution needs to be fitted; |
fLimit |
Boolean variable to indicate whether limit empirical distribution needs to be fitted; |
check |
Boolean variable to indicate whether graph of each tried distribution fitting needs to be generated and saved. |
library(cascsim) data(claimdata) lines<-c("Auto") types<-c("N") #exposure index index1 <- new("Index",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))),rep(1.4,301))) #severity index index2 <- new("Index",monthlyIndex=c(cumprod(c(1,rep(1.03^(1/12),59))),rep(1.03^(5),300))) objan <- new("ClaimType", line="Auto",claimType="N",exposureIndex=index1,severityIndex=index2) objlist <- list(objan) simobj <- new("Simulation",lines=lines,types=types,claimobjs=objlist,iFit=TRUE, iCopula=FALSE, iReport=TRUE) simobj <- claimFitting(simobj,claimdata,fSSRCorrelation = FALSE, fSettlementLag = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.