各位R爱好者,
想求两个指标的联合分布,我已得出边际分布都是gamma分布,现在想用Achimedean copulas 常见的三个函数拟合其联合分布,完全不知如何下手,应该求哪些参数?使用哪个copula函数?最后联合分布的结果如何表达?
已经闭门造车很久,没有进展,所以来论坛请教各位!
ps:fitCopula(copula, data, method="mpl", start=NULL, lower=NULL, upper=NULL,
optim.control = list(NULL), optim.method = "BFGS",
estimate.variance = TRUE)
其中举例时data都是通过已知的copula随机生成的,可我本来就是要求copula的,数据如何而来?
library("copula")
shape1=0.69647651
rate1=0.010729039
shape2=0.9635694881
rate2=0.0021278487
n<-500
cop<-claytonCopula(5,dim=2)
u<-rgamma(n,shape=shape1,scale=rate1)
v<-rgamma(n,shape=shape2,scale=rate2)
g<-fitCopula(cbind(pgamma(u,shape=shape1,scale=rate1),pgamma(v,shape=shape2,scale=rate2)),cop,optim.control=list(trace=TRUE,maxit=2000),method="ml");g