R/fitDependency.R

Defines functions fitDependency

Documented in fitDependency

fitDependency=function(cell,copula_family,method="mle"){
  freq_x=as.numeric(table(cell$Period))
  freq_u=VineCopula::pobs(rep(freq_x,freq_x))
  sev_u=VineCopula::pobs(cell$Loss)
  copfit=VineCopula::BiCopEst(freq_u,sev_u,copula_family,method=method)
  copfit
}

Try the OpVaR package in your browser

Any scripts or data that you put into this service are public.

OpVaR documentation built on Sept. 8, 2021, 5:07 p.m.