library(sate)
compare.jury.stats(pg_actual=.70, n_actual=400, pg_hypo=.60, n_hypo=450)
compare.jury.stats(pg_actual=.75, n_actual=450, pg_hypo=.65, n_hypo=350,
jury_n=6, pstrikes=3, dstrikes=3)
Run the code above in your browser using DataLab