# \donttest{
#------------------------------------------------
# Setting quadreture points
nq <- 5
gl <- gauss.quad.prob(nq)
#------------------------------------------------
# PTSD Data
#------------------ -----------------
data(PTSD)
ydat=PTSD
#------------------------------------------------
#vine tree structure
#selecting vine tree based on polychoric corr
rmat=polychoric0(ydat)$p
A.polychoric=selectFactorTrVine(y=ydat,rmat,alg=3)
#selecting bivariate copulas for the 1-2-factor tree
# listing the possible copula candidates:
copnames=c("gum", "rgum")
f1tree_model = copselect1FactorTree(ydat, A.polychoric$VineTreeA,
copnames, gl)
f2tree_model = copselect2FactorTree(ydat, A.polychoric$VineTreeA,
copnames, gl)
# }
Run the code above in your browser using DataLab