Permite onde e são independentes .
Qual é a probabilidade de obter uma amostra em que existem pelo menos dois valores consecutivos e tais que ?
Permite onde e são independentes .
Qual é a probabilidade de obter uma amostra em que existem pelo menos dois valores consecutivos e tais que ?
Respostas:
Execute uma cadeia de Markov.
Seja um "flip" (no índice ) o evento em que e tenham sinais opostos e ambos excedam em tamanho. À medida que examinamos qualquer realização de procurando flips, podemos explorar a simetria da distribuição normal padrão para descrever o processo com apenas quatro estados:X i - 1 X i 1,5 ( X i )
O início , antes de ser observado.
Zero , onde .
Um , onde .
Invertida , onde ocorre uma inversão em .
Iniciar transições para o estado (misto)
(correspondendo às chances de estar nos estados ( Zero , Um , Virado )) em que Como o Start nunca é visto novamente, não vamos mais nos rastrear.
Zero transita para Um com probabilidade (quando ) e permanece em Zero .| X i | > 1,5
Um transições para Flipped com probabilidade : Isso ocorre quando e tem o sinal oposto de . Também transita de volta para Um com probabilidade quando e tem o mesmo sinal que . Caso contrário, ele faz a transição para Zero .| X i | > 1,5 X i X i - 1 p | X i | > 1,5 X i X i - 1
Inverter é um estado absorvente: uma vez lá, nada muda, independentemente do valor de .
Portanto, a matriz de transição (ignorando o início transitório ) para ( Zero , Um , Invertido ) é, portanto,
Depois de sair do estado inicial (e entrar no estado misto ), serão feitas transições na varredura. A probabilidade desejada é, portanto, a terceira entrada (correspondente a Flipped ) em20 - 1 μ ⋅ P 20 - 1 ≈ 0,149045.
Não precisamos fazer multiplicações de matrizes para obter . Em vez disso, depois de diagonalizarP 19
a resposta para qualquer expoente (mesmo os enormes) pode ser calculada através de apenas uma multiplicação de matrizes, como
com
e
Uma simulação de um milhão de iterações (usando R
) suporta esse resultado. Sua saída,
Mean LCL UCL
0.1488040 0.1477363 0.1498717
estima a resposta como com um intervalo de confiança que inclui .0,149045
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