library(sate)
# Three-verdict ordered model with a 12-person jury:
prob.ordered.verdicts(12, c("NG", "M2", "M1"))
# Probability of ultimately unanimous "Lesser" starting from A=6, B=4, C=2:
prob.ordered.verdicts(12, c("A","B","C"), digits = 3)
Run the code above in your browser using DataLab