Publicação de Eduardo Queiroz

Ver perfil de Eduardo Queiroz

Linguagem R | FP&A e Tesouraria | Market, Liquidity & Credit Risk

Alguém conhece o dilema de Monty Hall? Nos anos 70 tinha um programa de TV (americana, chamado Let´s Make a Deal) e Monty Hall era o apresentador. Eis a dinâmica: onde o convidado escolhia uma porta de três disponíveis. Uma das portas tinha um prêmio, as outras duas, não. Então, MH abria uma das outras duas portas e mostrava que não havia um prêmio e perguntava para o convidado se ele desejava trocar de porta. Ocorre que chance de ganhar o prêmio é de 1 em 3 e passa para 2 em 3 quando a pessoa troca de porta. Então, trocar de porta sempre é a melhor opção. Em R fica fácil (usando simulação de Monte Carlo com 10.000 observações)... Cenário 1: o convidado permanece na porta escolhida > B <- 10000 > permanecer <- replicate(B, { +   portas <- as.character(1:3) +   premio <- sample(c("carro", "nada", "nada")) # aqui estão os premios aleatórios +   porta_premio <- portas[premio == "carro"] # arqui indico qual é o prêmio +   minha_escolha <- sample(portas, 1) # uma eporta aleatória é escolhida +   #a seguir, mostramos uma porta que não tem premio nem é a escolhida: +   mostrar <- sample(portas[!portas %in% c(minha_escolha, porta_premio)], 1) +   ficar <- minha_escolha +   ficar == porta_premio + }) > mean(permanecer) [1] 0.3374 > Cenário 2: o convidado troca de porta > B <- 10000 > trocar <- replicate(B, { +   portas <- as.character(1:3) +   premio <- sample(c("carro", "nada", "nada")) # aqui estão os premios aleatórios +   porta_premio <- portas[premio == "carro"] # arqui indico qual é o prêmio +   minha_escolha <- sample(portas, 1) # uma eporta aleatória é escolhida +   #a seguir, mostramos uma porta que não tem premio nem é a escolhida: +   mostrar <- sample(portas[!portas %in% c(minha_escolha, porta_premio)], 1) +   ficar <- minha_escolha +   #vamos trocar pela porta que não esolhemos: +   trocar <- portas[!portas%in%c(minha_escolha, mostrar)] +   trocar == porta_premio + }) > mean(trocar) [1] 0.6705 Ajudaria mais se o linkedin tivesse um editor de texto decente...

Prof. Ricardo Valério de Oliveira Moura

Compliance | Integridade | Gestão de Riscos | Controles Internos | Integridade | Governança

10 m

É a coisa mais fundamental dos dias atuais, mostrar a utilidade do conhecimento. VALEU PROFESSOR!

Entre para ver ou adicionar um comentário

Conferir tópicos