library(magrittr)
# plot one coin
plot_coin()
# plot multiple coin flips
flip_coin(times = 3, rounds = 3) %>%
plot_coin()
# change coin design
flip_coin(times = 3, rounds = 3) %>%
plot_coin(fill_success = "red")
Run the code above in your browser using DataLab