# NOT RUN {
data(voting)
suffstats(voting, voting_tally)
data(wilson)
wilson <- gunter(non_met)
suffstats(wilson)
L <- Lindsey(wilson)
expected_suffstats(L,5)
summary(suffstats(wilson)) ## matches.
summary(suffstats(rMM(10,5,L))) # should be close.
# }
Run the code above in your browser using DataCamp Workspace