# \donttest{
data(Down)
attach(Down)
y111=down_n_11
y110=nodown_n_11
y101=down_n_10
y100=nodown_n_10
y001=down_n_00
y000=nodown_n_00
y010=nodown_n_01
y011=down_n_01
nq=15
gl=gauss.quad.prob(nq,"uniform")
data(mgrid6d)
tau2par1=tau2par.cln90
qcond1=qcondcln90
tau2par3=tau2par4=tau2par5=tau2par.cln
qcond3=qcond4=qcond5=qcondcln
tau2par2=tau2par.bvn
qcond2=qcondbvn
sel1=3:5; sel2=1; sel3=2
est=multinom6dVineCopulaREMADA.norm(y001,y011,y101,y111,
y000,y010,y100,y110,gl,mgrid,qcond1,qcond2,qcond3,qcond4,qcond5,
tau2par1,tau2par2,tau2par3,tau2par4,tau2par5,sel1,sel2,sel3)
detach(Down)
# }
Run the code above in your browser using DataLab