# load 2 chains each one consisting of a
# small mcmc sample of 100 iterations
# with p=6 variables and q=2 factors.
data(small_posterior_2chains)
Nchains <- length(small_posterior_2chains)
reorderedPosterior <- vector('list',length=Nchains)
for(i in 1:Nchains){
reorderedPosterior[[i]] <- rsp_exact( lambda_mcmc = small_posterior_2chains[[i]],
maxIter = 100,
threshold = 1e-6,
verbose=TRUE )
}
# make them comparable
makeThemSimilar <- compareMultipleChains(rspObjectList=reorderedPosterior)
Run the code above in your browser using DataLab