library(Qval)
set.seed(123)
# \donttest{
################################################################
# Example 1: sim.data extraction #
################################################################
Q <- sim.Q(3, 10)
data.obj <- sim.data(Q, N = 200)
extract(data.obj, "dat")
################################################################
# Example 2: CDM extraction #
################################################################
CDM.obj <- CDM(data.obj$dat, Q)
extract(CDM.obj, "alpha")
extract(CDM.obj, "AIC")
################################################################
# Example 3: validation extraction #
################################################################
validation.obj <- validation(data.obj$dat, Q, CDM.obj)
Q.sug <- extract(validation.obj, "Q.sug")
print(Q.sug)
################################################################
# Example 4: fit extraction #
################################################################
fit.obj <- fit(data.obj$dat, Q.sug, model="GDINA")
extract(fit.obj, "M2")
# }
Run the code above in your browser using DataLab