data(Pap)
attach(Pap)
nq=30
gl=gauss.quad.prob(nq,"uniform")
data(mgrid30)
mgrid=mgrid30
tau2par=tau2par.bvn
qcond=qcondbvn
select.random=1:4
start=c(rep(0.6,5),rep(0.5,4),c(0.1,-0.1,0.1))
est.norm=imperfect.quadrivariateVineCopulaREMADA.norm.comprehensive(y11,y10,y01,
y00,gl,mgrid,qcond,tau2par,select.random,start)
detach(Pap)
Run the code above in your browser using DataLab