if (FALSE) {
# vector of all test datasets allowed by this benchmarking function
testDatasets<-c("clusSummaryBernoulliNormal",
"clusSummaryBernoulliDiscreteSmall","clusSummaryCategoricalDiscrete",
"clusSummaryNormalDiscrete","clusSummaryNormalNormal",
"clusSummaryNormalNormalSpatial","clusSummaryVarSelectBernoulliDiscrete",
"clusSummaryBernoulliMixed")
# runs profile regression on all datasets and
# computes confusion matrix for each one
for (i in 1:length(testDatasets)){
tester<-simBenchmark(testDatasets[i])
print(table(tester[,c(1,3)]))
}
}
Run the code above in your browser using DataLab