inst/Strategies/random.R

#' @title Random
#'
#' @description Strategy rules:
#'    1. Cooperates or defects at random
#'
random <- function(opponent, memory) {
  sample(c("C", "D"), 1)
}
swarm-lab/axelRod documentation built on May 30, 2019, 9:34 p.m.