Soit où et sont indépendants .
Quelle est la probabilité d'obtenir un échantillon où il y a au moins deux valeurs consécutives et telles que ?
Soit où et sont indépendants .
Quelle est la probabilité d'obtenir un échantillon où il y a au moins deux valeurs consécutives et telles que ?
Réponses:
Exécutez une chaîne Markov.
Soit un "flip" (à l'indice ) l'événement si et sont de signes opposés et dépassent tous les deux fois. En parcourant toute réalisation de recherche de flips, nous pouvons exploiter la symétrie de la distribution normale standard pour décrire le processus avec seulement quatre états:
Le début , avant que soit observé.
Zéro , où .
Un , où .
Renversé , où un retournement se produit en .
Démarrer les transitions dans l'état (mixte)
(correspondant aux chances d'être dans des états ( zéro , un , inversé )) où Parce que Start n'est plus jamais revu, ne prenons pas la peine de le suivre plus loin.
Zero passe à One avec une probabilité de (lorsque ) et reste à zéro .
On passe en retourné avec probabilité : cela se produit lorsque et a le signe opposé de . Il revient également à Un avec une probabilité lorsque et ont le même signe que . Sinon, il passe à zéro .
Flipped est un état absorbant: une fois sur place, rien ne change quelle que soit la valeur de .
Ainsi, la matrice de transition (ignorant le début transitoire ) pour ( Zero , One , Flipped ) est donc
Après avoir quitté l'état de départ (et être entré dans l'état mixte ), des transitions seront effectuées dans le balayage pour un retournement. La probabilité souhaitée est donc la troisième entrée (correspondant à Flipped ) dans
Nous n'avons pas besoin de faire multiplications matricielles pour obtenir . Au lieu de cela, après diagonalisation
la réponse pour tout exposant (même énorme) peut être calculée via une seule multiplication matricielle comme
avec
et
Une simulation d'un million d'itérations (à l'aide R
) prend en charge ce résultat. Sa sortie,
Mean LCL UCL
0.1488040 0.1477363 0.1498717
estime la réponse à avec un intervalle de confiance qui comprend .
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