# (c) 2004, Jonathan Taylor, Stanford University

source('http://www-stat.stanford.edu/~jtaylo/venezuela/load-data.R')

pmf.YES <- pmf(VOTED.YES)
pmf.NO <- pmf(VOTED.NO)
pmf.COUNTS <- pmf(nmachine)

# Assuming "empirical" is the typical vote

mean.YES <- mixture.prob.tie(pmf.COUNTS$y, pmf.YES$y) * ncenter
mean.NO <- mixture.prob.tie(pmf.COUNTS$y, pmf.NO$y) * ncenter

print(data.frame(mean.YES, mean.NO))