Mari dimana dan independen .
Berapa probabilitas untuk mendapatkan sampel di mana setidaknya ada dua nilai berturut-turut dan seperti yang ?
Mari dimana dan independen .
Berapa probabilitas untuk mendapatkan sampel di mana setidaknya ada dua nilai berturut-turut dan seperti yang ?
Jawaban:
Jalankan rantai Markov.
Biarkan "flip" (pada indeks ) menjadi acara itu dan adalah tanda-tanda yang berlawanan dan keduanya melebihi dalam ukuran. Saat kami memindai seluruh realisasi mencari membalik, kita dapat mengeksploitasi simetri dari distribusi Normal standar untuk menggambarkan proses hanya dengan empat negara:
The Mulai , sebelum diamati.
Nol , dimana.
Satu , dimana.
Terbalik , tempat flip terjadi.
Mulai transisi ke status (campuran)
(sesuai dengan kemungkinan berada di negara bagian ( Nol , Satu , Terbalik )) di mana
Nol transisi menjadi Satu dengan probabilitas (ketika ) dan sebaliknya tetap pada Nol .
Satu transisi ke Dibalik dengan probabilitas : ini terjadi ketika dan memiliki tanda kebalikan dari . Ini juga transisi kembali ke One dengan probabilitas ketika dan memiliki tanda yang sama dengan . Kalau tidak, transisi ke Nol .
Membalik adalah keadaan menyerap: sekali di sana, tidak ada yang berubah terlepas dari nilai .
Dengan demikian matriks transisi (mengabaikan Start sementara ) untuk ( Nol , Satu , Terbalik ) oleh karena itu
Setelah meninggalkan keadaan awal (dan memasuki keadaan campuran ), transisi akan dilakukan dalam pemindaian untuk flip. Karena itu probabilitas yang diinginkan adalah entri ketiga (terkait dengan Dibalik ) di
Kita tidak perlu melakukan perkalian matriks untuk mendapatkan . Sebagai gantinya, setelah diagonalisasi
jawaban untuk setiap eksponen (bahkan yang besar) dapat dihitung hanya dengan satu perkalian matriks sebagai
dengan
dan
Simulasi sejuta-iterasi (menggunakan R
) mendukung hasil ini. Outputnya,
Mean LCL UCL
0.1488040 0.1477363 0.1498717
memperkirakan jawabannya sebagai dengan interval kepercayaan yang mencakup .
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