## Not run:
# # 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)
# ## End(Not run)
Run the code above in your browser using DataLab