Permite donde y son independientes .
¿Cuál es la probabilidad de obtener una muestra donde hay al menos dos valores consecutivos y modo que ?
Permite donde y son independientes .
¿Cuál es la probabilidad de obtener una muestra donde hay al menos dos valores consecutivos y modo que ?
Respuestas:
Ejecuta una cadena de Markov.
Deje un "flip" (en el índice ) sea el evento que y son de signos opuestos y ambos exceden en tamaño. A medida que exploramos cualquier realización de buscando volteos, podemos explotar la simetría de la distribución Normal estándar para describir el proceso con solo cuatro estados:
El comienzo , antes es observado.
Cero , donde.
Uno donde.
Volteado , donde ocurre un volteo en.
Iniciar transiciones al estado (mixto)
(correspondiente a las posibilidades de estar en estados ( cero , uno , invertido )) donde
Cero pasa a Uno con probabilidad (cuando ) y de lo contrario permanece en Cero .
Uno pasa a Volteado con probabilidad : esto ocurre cuando y tiene el signo opuesto de . También pasa de nuevo a Uno con probabilidad cuando y tiene el mismo signo que . De lo contrario, pasa a cero .
Voltear es un estado absorbente: una vez allí, nada cambia independientemente del valor de .
Por lo tanto, la matriz de transición (ignorando el inicio transitorio ) para ( cero , uno , invertido ) es, por lo tanto
Después de salir del estado de inicio (y entrar en el estado mixto ), se realizarán transiciones en el escaneo en busca de un cambio. Por lo tanto, la probabilidad deseada es la tercera entrada (correspondiente a Volteado ) en
No necesitamos hacer multiplicaciones matriciales para obtener . En cambio, después de diagonalizar
la respuesta para cualquier exponente (incluso los enormes) se puede calcular a través de una sola multiplicación de matriz como
con
y
Una simulación de un millón de iteraciones (usando R
) respalda este resultado. Su salida,
Mean LCL UCL
0.1488040 0.1477363 0.1498717
estima la respuesta como con un intervalo de confianza que incluye .
n <- 20 # Length of the sequence
n.iter <- 1e6 # Length of the simulation
set.seed(17) # Start at a reproducible point
x <- rnorm(n.iter*n) # The X_i
y <- matrix(sign(x) * (abs(x) > 3/2), n, n.iter)
flips <- colSums(y[-1, ] * y[-n, ] == -1) # Flip indicators
x.bar <- mean(flips >= 1) # Mean no. of flipped sequences
s <- sqrt(x.bar * (1-x.bar) / n.iter) # Standard error of the mean
(c(Mean=x.bar, x.bar + c(LCL=-3,UCL=3) * s)) # The results