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