if (FALSE) {
# generate simulated dataset
generateDataList <- clusSummaryBernoulliDiscreteSmall()
inputs <- generateSampleDataFile(generateDataList)
# run profile regression
runInfoObj<-profRegr(yModel=inputs$yModel, xModel=inputs$xModel,
nSweeps=10, nBurn=2000, data=inputs$inputData, output="output",
covNames=inputs$covNames,nClusInit=15)
# compute dissimilarity matrix
dissimObj<-calcDissimilarityMatrix(runInfoObj)
# plot heatmap
heatDissMat(dissimObj)
}
Run the code above in your browser using DataLab