# ---------------------------------------------------
# ---------------------------------------------------
#Sample size
n = 500
#Ordinal Variables ---------------------------------
d = 9
grpsize=c(3,3,3)
ngrp=length(grpsize)
#Categories for ordinal ----------------------------
categ = rep(3,d)
# ---------------------------------------------------
# ---------------------------------------------------
# Bi-factor copula model
# ---------------------------------------------------
# ---------------------------------------------------
#Copula parameters
theta = rep(2.5, d)
delta = rep(1.5, d)
#Copula names
copulanames1 = rep("gum", d)
copulanames2 = rep("gum", d)
#----------------- Simulating data ------------------
data_Bifactor = rBifactor(n, d, grpsize, categ, copulanames1,
copulanames2, theta, delta)
# ---------------------------------------------------
# ---------------------------------------------------
# Second-order copula model
# ---------------------------------------------------
# ---------------------------------------------------
#Copula parameters
theta= rep(1.5, ngrp)
delta = rep(2.5, d)
#Copula names
copulanames1 = rep("gum", ngrp)
copulanames2 = rep("gum", d)
data_Second_order = rSecond_order(n, d, grpsize, categ,
copulanames1, copulanames2, theta, delta)
Run the code above in your browser using DataLab