Markov 속성 (MP) 이외 의 추가 속성은 Time Homogeneity (TH)입니다. 는 Markov가 될 수 있지만 시간 t 에 따라 전이 행렬
P ( t )가 있습니다. 예, 그것은에서 요일에 따라 달라질 수 있습니다 t 관찰 매일 경우, 다음 의존도
X t 에 X t - 7 조건에 X t - 1 TH가 과도하게 가정하면 진단 할 수있다.XtP(t)ttXtXt−7Xt−1
가정 TH는 MP가 취할 수있는 검사가 검사되고, 유지 독립적으로 X t - 2 조건에서 X t - 1 마이클 Chernick 및 StasK 제안한다. 우발 사고 테스트 테이블을 사용하여이를 수행 할 수 있습니다. 우리는 만들 수 N 개의 의 비상 테이블 X t 및 X t - 2
조건부 { X t - 1 = X J } 대한 N 개의 가능한 값 X J를XtXt−2Xt−1nXtXt−2{Xt−1=xj}nxj독립성을 테스트합니다. 이것은 또한 사용하여 수행 할 수 있습니다
로 ℓ > 1 대신에 X의 t - 2 .Xt−ℓℓ>1Xt−2
R에서, 비상 테이블 또는 배열은 쉽게 덕분에 생산 요소의 시설과 기능을 apply
,
sweep
. 위의 아이디어는 그래픽으로 활용할 수도 있습니다. 패키지 ggplot2 또는 격자 는 조건부 분포 를 비교하기위한 조건부 플롯을 쉽게 제공합니다 . 예를 들어 i 를 행 인덱스 및 j 로 설정p(Xt|Xt−1=xj,Xt−2=xi)ij trellis의 컬럼 인덱스는 MP에서 컬럼 내에서 유사한 분포를 가져야합니다.
챕터. 책 5 시간 확률 프로세스의 통계적 분석 JK 의해 린지는 가정을 확인하기위한 다른 아이디어를 포함한다.
[## 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")
]