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