Un resultado probabilístico contraintuitivo (parte I)
A elige dos números con una distribución de probabilidad cualquiera, generador <- function() rlnorm(2, 3, 4) y los guarda ocultos. A B le deja ver uno al azar (sin pérdida de generalidad, el primero). Y B tiene que decidir si el que ve es el más alto de los dos (en cuyo caso, gana un premio, etc.). Veamos a B actuar de manera naive: estrategia.naive <- function(observed) { sample(1:2, 1) } Dejemos a A y B jugar repetidamente a este juego: ...