R Interativo — Friend or Foe

R Interativo — Friend or Foe: Dilema dos Prisioneiros Real

Carregando WebR e pacote Ecdat (~15-20s na primeira vez)...

Edite o código e clique "Executar" — dados reais do game show R

# Friend or Foe — Análise do game show (Adams 2025, Cap.1)
# Dados: Ecdat::FriendFoe (Kalist 2004, List 2006)
library(Ecdat)
data("FriendFoe")

# --- Tabela de frequências: como as pessoas jogam? ---
game_mat <- FriendFoe |>
  summarize(
    ff = mean(play == "friend" & play1 == "friend"),
    Ff = mean(play == "foe"   & play1 == "friend"),
    fF = mean(play == "friend"& play1 == "foe"),
    FF = mean(play == "foe"   & play1 == "foe")
  ) |> as.numeric() |> matrix(nrow = 2)
colnames(game_mat) <- rownames(game_mat) <- c("Friend","Foe")

cat("=== Frequência de cada célula ===\n")
print(round(game_mat, 3))
cat("\nN jogos:", nrow(FriendFoe), "\n")
cat("Taxa cooperação (Friend):",
    round(mean(c(FriendFoe$play, FriendFoe$play1) == "friend"), 3), "\n")

# --- Gráfico: barras de frequência ---
par(mar = c(4, 4, 3, 1))
barplot(c(game_mat), names.arg = c("F,F","Foe,F","F,Foe","Foe,Foe"),
        col = c("#2a7f2a","#ff9800","#ff9800","#C8102E"),
        main = "Resultados do Trust Box (Friend or Foe)",
        ylab = "Proporção dos jogos", ylim = c(0, 0.4),
        border = NA)
abline(h = 0.25, lty = 2, col = "gray")
text(2.5, 0.26, "25% (uniforme)", cex = 0.8, col = "gray40")

Saída do R

Aguardando execução...

Dados: 227 episódios do game show Friend or Foe (Game Show Network, 2002–2005). Cada dupla jogava um Dilema dos Prisioneiros real com milhares de dólares em jogo. Altere o código para explorar: glm(play == "friend" ~ age + cash, family=binomial, data=df)