EVOLUTION-MANAGER
Edit File: UKDriverDeaths.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><title>R: Road Casualties in Great Britain 1969-84</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <link rel="stylesheet" type="text/css" href="R.css" /> </head><body> <table width="100%" summary="page for UKDriverDeaths {datasets}"><tr><td>UKDriverDeaths {datasets}</td><td style="text-align: right;">R Documentation</td></tr></table> <h2> Road Casualties in Great Britain 1969–84 </h2> <h3>Description</h3> <p><code>UKDriverDeaths</code> is a time series giving the monthly totals of car drivers in Great Britain killed or seriously injured Jan 1969 to Dec 1984. Compulsory wearing of seat belts was introduced on 31 Jan 1983. </p> <p><code>Seatbelts</code> is more information on the same problem. </p> <h3>Usage</h3> <pre> UKDriverDeaths Seatbelts </pre> <h3>Format</h3> <p><code>Seatbelts</code> is a multiple time series, with columns </p> <dl> <dt><code>DriversKilled</code></dt><dd><p>car drivers killed.</p> </dd> <dt><code>drivers</code></dt><dd><p>same as <code>UKDriverDeaths</code>.</p> </dd> <dt><code>front</code></dt><dd><p>front-seat passengers killed or seriously injured.</p> </dd> <dt><code>rear</code></dt><dd><p>rear-seat passengers killed or seriously injured.</p> </dd> <dt><code>kms</code></dt><dd><p>distance driven.</p> </dd> <dt><code>PetrolPrice</code></dt><dd><p>petrol price.</p> </dd> <dt><code>VanKilled</code></dt><dd><p>number of van (‘light goods vehicle’) drivers.</p> </dd> <dt><code>law</code></dt><dd><p>0/1: was the law in effect that month?</p> </dd> </dl> <h3>Source</h3> <p>Harvey, A.C. (1989). <em>Forecasting, Structural Time Series Models and the Kalman Filter</em>. Cambridge University Press, pp. 519–523. </p> <p>Durbin, J. and Koopman, S. J. (2001). <em>Time Series Analysis by State Space Methods</em>. Oxford University Press. <a href="http://www.ssfpack.com/dkbook/">http://www.ssfpack.com/dkbook/</a> </p> <h3>References</h3> <p>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. <em>Journal of the Royal Statistical Society</em> series A, <b>149</b>, 187–227. doi: <a href="https://doi.org/10.2307/2981553">10.2307/2981553</a>. </p> <h3>Examples</h3> <pre> 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) </pre> <hr /><div style="text-align: center;">[Package <em>datasets</em> version 3.6.0 <a href="00Index.html">Index</a>]</div> </body></html>