#' @title Random
#'
#' @description Strategy rules:
#' 1. Cooperates or defects at random
#'
random <- function(opponent, memory) {
sample(c("C", "D"), 1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.