Un pequeño problema de probabilidad

El tuit

de John Allen Paulos me indujo a escribir

number.numbers <- function(n){
  sum(cumsum(sample(0:n)) < n) + 1
}
 
res <- replicate(10000, number.numbers(1000))

código con el que, efectivamente, puede comprobarse que la media es, efectivamente, e.

Ahora bien, ¿alguien se atreve a explicar por qué?

(No leas esta pista: (s??)?s??).

2 comentarios sobre “Un pequeño problema de probabilidad

  1. David 24 noviembre, 2013 22:44

    Podemos enforcarlo como una media ponderada, donde las ponderaciones son una especie de serie geometria, pero con probabilidades que varian. El exito en tiempo T require fracasos para t infinite = e

    Faltaria derivar correctamente que Sucess(t) = t-1 / t, es un problema de particiones.

Los comentarios están desabilitados.