# Data on Trump approval ratings from 538 (Nate Silver)
# Just a few surveys to illustrate things
#
#  June 12=17	Monmouth   A+	n=751	41% approve 
#  June 18-24	McLaughlin C-	n=1000  47% approve
#  Aug  16-20	Monmouth   A+   n=900   40% approve
#
# A large sample case
#
#
nmJun <- 751
ymJun <- round(.41*nmJun, digits=0)

nmclJun <- 1000
ymclJun <- round(.47*nmclJun,digits=0)

nmAug <- 900
ymAug <- round(.40*mnAug,digits=0)