Di luar Markov Property (MP), properti lebih lanjut Waktu Homogenitas (TH): dapat Markov tetapi dengan matriks transisi
P ( t ) tergantung pada waktu t . Misalnya, mungkin tergantung pada hari kerja di t jika pengamatan harian, dan kemudian ketergantungan
X t pada X t - 7 syarat X t - 1 dapat didiagnosis jika TH adalah terlalu diasumsikan.XtP(t)ttXtXt−7Xt−1
Dengan asumsi TH memegang, cek mungkin bagi MP adalah pengujian yang independen dari X t - 2 tergantung pada X t - 1 , sebagai Michael Chernick dan StasK disarankan. Ini dapat dilakukan dengan menggunakan tes untuk tabel kontingensi. Kita dapat membangun n tabel kontingensi X t dan X t - 2
bersyarat pada { X t - 1 = x j } untuk n kemungkinan nilai x jXtXt−2Xt−1nXtXt−2{Xt−1=xj}nxj, dan menguji independensi. Ini juga dapat dilakukan dengan menggunakan
dengan ℓ > 1 sebagai pengganti X t - 2 .Xt−ℓℓ>1Xt−2
Dalam R, kontingensi tabel atau array mudah diproduksi berkat faktor fasilitas dan fungsi apply,
sweep. Gagasan di atas juga dapat dieksploitasi secara grafis. Paket ggplot2 atau kisi dengan mudah menyediakan plot bersyarat untuk membandingkan distribusi kondisional . Misalnya pengaturan saya sebagai indeks baris dan jp(Xt|Xt−1=xj,Xt−2=xi)ij sebagai indeks kolom dalam terali harus di bawah MP mengarah ke distribusi serupa dalam kolom.
Chap. 5 buku Analisis statistik proses stokastik dalam waktu oleh JK Lindsey berisi ide-ide lain untuk memeriksa asumsi.

[## simulates a MC with transition matrix in 'trans', starting from 'ini'
simMC <- function(trans, ini = 1, N) {
X <- rep(NA, N)
Pcum <- t(apply(trans, 1, cumsum))
X[1] <- ini
for (t in 2:N) {
U <- runif(1)
X[t] <- findInterval(U, Pcum[X[t-1], ]) + 1
}
X
}
set.seed(1234)
## transition matrix
P <- matrix(c(0.1, 0.1, 0.1, 0.7,
0.1, 0.1, 0.6, 0.2,
0.1, 0.3, 0.2, 0.4,
0.2, 0.2, 0.3, 0.3),
nrow = 4, ncol = 4, byrow = TRUE)
N <- 2000
X <- simMC(trans = P, ini = 1, N = N)
## it is better to work with factors
X <- as.factor(X)
levels(X) <- LETTERS[1:4]
## table transitions and normalize each row
Phat <- table(X[1:(N-1)], X[2:N])
Phat <- sweep(x = Phat, MARGIN = 1, STATS = apply(Phat, 1, sum), FUN = "/")
## explicit dimnames
dimnames(Phat) <- lapply(list("X(t-1)=" ,"X(t)="),
paste, sep = "", levels(as.factor(X)))
## transition 3-fold contingency array
P3 <- table(X[1:(N-2)], X[2:(N-1)], X[3:N])
dimnames(P3) <- lapply(list("X(t-2)=", "X(t-1)=" ,"X(t)="),
paste, sep = "", levels(as.factor(X)))
## apply ONE indendence test
fisher.test(P3[ , 1, ], simulate.p.value = TRUE)
## plot conditional distr.
library(lattice)
X3 <- data.frame(X = X[3:N], lag1X = X[2:(N-1)], lag2X = X[1:(N-2)])
histogram( ~ X | lag1X + lag2X, data = X3, col = "SteelBlue3")
]