Simular 10000 partidas

Agora, vamos simular 10000 partidas e responder: como 2 e 12 são igualmente improváveis, com que frequência um 2 ou um 12 aparece mais de duas vezes em uma partida?

A estratégia básica indica que os espaços com 2 ou 12 devem ser evitados porque são os menos prováveis e, embora isso seja verdade teoricamente, aqui vamos investigar o quão surpreendente realmente é se eles acabarem aparecendo com mais frequência do que o esperado. A função roll_dice dos exercícios anteriores já foi pré-carregada para você.

Este exercício faz parte do curso

Probability Puzzles in R

Ver curso

Instruções do exercício

Use a função replicate para rolar dois dados 60 vezes.
Use uma condição composta para verificar se um 2 ou 12 foi obtido mais de duas vezes.
Imprima sua probabilidade estimada de obter 2 ou 12 mais de duas vezes em uma partida.

Exercício interativo prático

Experimente este exercício completando este código de exemplo.

set.seed(1)
counter <- 0

for(i in 1:10000){
  # Roll two dice 60 times
  rolls <- ___
  
  # Check whether 2 or 12 was rolled more than twice
  if(___){
    counter <- counter + 1
  }  
}

# Print the answer
print(___)

Editar e executar o código