R UKDriverDeaths 1969-84 年英國道路傷亡情況

說明

UKDriverDeaths 是一個時間序列，顯示了 1969 年 1 月至 1984 年 12 月期間英國每月死亡或重傷的汽車司機總數。1983 年 1 月 31 日開始強製佩戴安全帶。

Seatbelts 是有關同一問題的更多信息。

用法

UKDriverDeaths
Seatbelts

格式

Seatbelts 是一個多時間序列，包含列

DriversKilled

汽車司機被殺。

drivers

與 UKDriverDeaths 相同。

front

front-seat 乘客死亡或重傷。

rear

rear-seat 乘客死亡或重傷。

kms

行駛距離。

PetrolPrice

汽油價格。

VanKilled

貨車(“輕型貨車”)司機的數量。

law

0/1：該法律當月生效嗎？

例子

require(stats); require(graphics)
## work with pre-seatbelt period to identify a model, use logs
work <- window(log10(UKDriverDeaths), end = 1982+11/12)
par(mfrow = c(3, 1))
plot(work); acf(work); pacf(work)
par(mfrow = c(1, 1))
(fit <- arima(work, c(1, 0, 0), seasonal = list(order = c(1, 0, 0))))
z <- predict(fit, n.ahead = 24)
ts.plot(log10(UKDriverDeaths), z$pred, z$pred+2*z$se, z$pred-2*z$se,
        lty = c(1, 3, 2, 2), col = c("black", "red", "blue", "blue"))

## now see the effect of the explanatory variables
X <- Seatbelts[, c("kms", "PetrolPrice", "law")]
X[, 1] <- log10(X[, 1]) - 4
arima(log10(Seatbelts[, "drivers"]), c(1, 0, 0),
      seasonal = list(order = c(1, 0, 0)), xreg = X)

來源

哈維，A.C. (1989)。預測、結構時間序列模型和卡爾曼濾波器。劍橋大學出版社，第 519-523 頁。

Durbin, J. 和 Koopman, S. J. (2001)。通過狀態空間方法進行時間序列分析。牛津大學出版社。

參考

Harvey, A. C. and Durbin, J. (1986). The effects of seat belt legislation on British road casualties: A case study in structural time series modelling. Journal of the Royal Statistical Society series A, 149, 187-227. doi:10.2307/2981553.