if (FALSE) {
inputs <- generateSampleDataFile(clusSummaryBernoulliDiscrete())
runInfoObj<-profRegr(yModel=inputs$yModel,
xModel=inputs$xModel, nSweeps=5,
nBurn=10, data=inputs$inputData, output="output",
covNames = inputs$covNames, nClusInit=15,
fixedEffectsNames = inputs$fixedEffectNames)
margModelPost<-margModelPosterior(runInfoObj)
}
Run the code above in your browser using DataLab