N=30
p=c(0.898745016,0.766105342,0.059168715,0.109217888)
g=c(0.090270947,0.079469009,0.367463579,0.154976269)
taus=c( 0.82050793,-0.51867629,0.26457961)
qcond1=qcondcln180
pcond1=pcondcln180
tau2par1=tau2par.cln180
qcond2=qcondcln90
pcond2=pcondcln90
tau2par2=tau2par.cln90
out=rmultinomVineCopulaREMADA.beta(N,p,g,taus,qcond1,pcond1,tau2par1,qcond2,pcond2,tau2par2)
TP=out[,1]
NEP=out[,2]
FN=out[,3]
TN=out[,4]
NEN=out[,5]
FP=out[,6]
Run the code above in your browser using DataLab