View source: R/sim.as.jury.stats.r
| sim.as.jury.stats | R Documentation | 
Returns estimate of the probability of guilty verdict based on juror-level statistics supplied by user. Also reports inferential statistics. Results are based on an empirical model with greater uncertainty than as.jury.stats function.
sim.as.jury.stats(
  sample_pg,
  sample_n,
  jury_n = 12,
  pstrikes = 0,
  dstrikes = 0,
  accuracy = 0.15,
  digits = 3,
  nDraws = 10000,
  seed = 12345
)
sample_pg | 
 The proportion of jurors who favor a guilty verdict in the jury pool  | 
sample_n | 
 The size of the sample used to estimate sample_pg  | 
jury_n | 
 Size of the jury (i.e. 6, 8, or 12); default value is 12.  | 
pstrikes | 
 Number of peremptory strikes by prosecution; default value is 0.  | 
dstrikes | 
 Number of peremptory strikes by defendant; default value is 0.  | 
accuracy | 
 Accuracy of parties' peremptory strikes; a number between 0 and 1; default value is .15.  | 
digits | 
 Number of digits to report after decimal places; default value is 3.  | 
nDraws | 
 The number of simulations used to generate results. Should be very large number (default = 10000).  | 
seed | 
 Set seed for random number generation for replication, default is 12345.  | 
Returns a list of jury-level statistics to assess effect of a trial error.
   library(sate)
   sim.as.jury.stats(sample_pg=.50, sample_n=830, nDraws=500)
   sim.as.jury.stats(sample_pg=10/12, sample_n=295, pstrikes=6, dstrikes=10, nDraws=1000)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.