Simulation Patterns

Threshold Trials

Counting Successes

A simulation often turns numeric draws into success or failure flags. A threshold defines which draws count as successful.

Program

Play the script to move the threshold and watch the success rate change.

threshold_trials.R 
draws <- c(0.12, 0.91, 0.44, 0.68, 0.27)
threshold <- 
success <- draws >= threshold
success_count <- sum(success)
rate <- success_count / length(draws)
cat(rate, "\n", sep = "")

draws <- c(0.12, 0.91, 0.44, 0.68, 0.27)
threshold <- 
success <- draws >= threshold
success_count <- sum(success)
rate <- success_count / length(draws)
cat(rate, "\n", sep = "")

draws <- c(0.12, 0.91, 0.44, 0.68, 0.27)
threshold <- 
success <- draws >= threshold
success_count <- sum(success)
rate <- success_count / length(draws)
cat(rate, "\n", sep = "")
threshold `draws >= threshold` converts numeric draws into logical success flags.
sum logical `sum(success)` counts `TRUE` values because `TRUE` acts like 1.
rate A simulated rate is a count divided by the number of trials.