data(PvalSets_cor)
PvalMat <- as.matrix(PvalSets_cor[, -3])
## Build the Hconfig objects
Q <- 2
Hconfig <- GetHconfig(Q)
## Run the function
res.fit <- qch.fit(pValMat = PvalMat, Hconfig = Hconfig, copula = "gaussian")
## Display the prior of each class of items
res.fit$prior
## Display the correlation estimate of the gaussian copula
res.fit$Rcopula
## Display the first posteriors
head(res.fit$posterior)
Run the code above in your browser using DataLab