I hope I am asking at the right place. it's the first time I am using cascsim. I am looking to claim fit specifically the claim property and H,I am trying to fit the report lag. when I put my code it just says that the data is insufficient. I checked and there is 1175 claim with those two caracteristic so there should be the data available. I am doing module 2 of the CIA and one of the exercice is asking me to do this, I have been stuck on this for a long time.

data1 <- read.csv("c:/Users/samtr/Downloads/MOD_D2_acia_short_model_data.csv")
data<-"c:/Users/samtr/Downloads/MOD_D2_acia_short_model_data.csv"
folder<-"C:/Users/samtr/OneDrive/Documents/Module 2"
library(cascsim)
colnames(data1)[colnames(data1) == "LoB"] <- "line"
colnames(data1)[colnames(data1) == "Type"] <- "claimType"
lines <- c("Property","Property","Liab","Liab")
types <- c("N","H","N","H")
classes <- c("RBNER","ROPEN","IBNR","UPR")
lines <- unique(lines)
types <- unique(types)
PropN<-new("ClaimType", line = "Property", claimType = "N", iCopula = TRUE)
PropH<-new("ClaimType", line = "Property", claimType = "H", iCopula = TRUE)
LiabN<-new("ClaimType", line = "Liab", claimType = "N", iCopula = TRUE)
LiabH<-new("ClaimType", line = "Liab", claimType = "H", iCopula = TRUE)
objlist <- list(PropN,PropH,LiabN,LiabH)
data1$Lag <- as.numeric(as.Date(data1$reportDate) - as.Date(data1$occurrenceDate))

simobj<-new("Simulation",lines="Property",types="H",claimobjs=list(PropH),workingFolder=folder)
simobj@iCopula<-FALSE
simobj<-claimFitting(simobj,data1,startDate=as.Date("2017-01-01"),discreteDist=c()
                     ,continuousDist=c("Exponential","Normal","Lognormal","Weibull","Gamma"),copulaList=c(),fReportLag=TRUE,check=TRUE)

 Fitting process started.
Frequency and Frequency Copula Fitting are turned off due to insufficient data.


Nothing to fit or no claim data.
Claim data fitting done

don't hesitate to ask me further question if needed