# \donttest{
data(Pap)
attach(Pap)
nq=15
gl=gauss.quad.prob(nq,"uniform")
data(mgrid5d15)
mgrid=mgrid5d15
tau2par=tau2par.bvn
qcond=qcondbvn
start=c(rep(0.6,5),rep(0.5,5),rep(0.01,4))
est.norm=imperfect.fivevariateVineCopulaREMADA.norm.comprehensive(y11,y10,y01,
y00,gl,mgrid,qcond,tau2par,start)
detach(Pap)
# }
Run the code above in your browser using DataLab