test4 <- ranHiveData(nx = 4)
good <- chkHPD(test4, confirm = TRUE)
# mess it up and do again
# next test is not run as it halts execution
if (FALSE) {
test4$nodes$color <- as.factor(test4$nodes$color)
bad <- chkHPD(test4)
}
Run the code above in your browser using DataLab