inst/examples/RockPaperScissorsLaserMirror/game_create.R

In skranz/gtreeWebPlay: Create shiny apps to play gtree games

library(gtree)

# Specify game
# Laser beats rock and paper but is bet my shiny scissors
# Otherwise as in rock paper scissors
game = new_game(
  gameId = "RockPaperScissorsLaserMirror",
  options =make_game_options(verbose=FALSE),
  params = list(numPlayers=2),
  stages = list(
    stage("player1",
      player=1,
      actions = list(
        action("a1",set=c("r","p","s","l","m"))
      )
    ),
    stage("player2",
      player=2,
      actions = list(
        action("a2",set=c("r","p","s","l","m"))
      )
    ),
    stage("PayoffStage",
      compute=list(
        payoff_1 ~ -1+2*(
          (a1=="r" & a2 %in% c("s","m")) |
          (a1=="p" & a2 %in% c("r","m")) |
          (a1=="s" & a2 %in% c("p","m")) |
          (a1=="l" & a2 %in% c("r","p","s")) |
          (a1=="m" & a2=="l")
        ) + (a1==a2),
        payoff_2 ~ -payoff_1
      )
    )
  )
)



# Try to find all equilibria
game %>%
  game_gambit_solve("gambit-enummixed -q -d 12")

# We have a unique mixed strategy equilibrium
game %>%
  eq_tables()

saveRDS(game,"game.Rds")