Appeals Court Simulation (Version 2)

In this version the weakest judge always votes with the strongest one.

Usage

courtSim2(reps = 10000,
                seed = NULL,
                table = FALSE,
                probs = c(0.95, 0.94, 0.90, 0.90, 0.80))

Arguments

reps

number of simulations to perform

seed

The user may provide a seed-value for random-number generation.

table

Does the user want a table of the results?

probs

Chance for each judge to make the right decision on any given case.

Value

side effects

Author

Homer White homerhanumat@gmail.com

Examples

courtSim2(seed = 3030)
#> The proportion of times the court was correct was 0.9887.