ลองใช้งานโมเดล Generative

# The generative zombie drug model

# Set parameters
prop_success <- ___
n_zombies <- ___

# Simulating data
data <- c()
for(zombie in 1:n_zombies) {
  data[zombie] <- runif(1, min = 0, max = 1) < prop_success
}
data <- as.numeric(data)
data