Section 8.6 finished and plot 8.16 after second correction

k41m4n · Aug 16, 2020 · 24f39ca · 24f39ca
1 parent 085d425
commit 24f39ca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/SSM.R b/SSM.R
@@ -2281,7 +2281,7 @@ outPredict2 <- predict(fit$model, states = "all", interval = "prediction",
 #Figure 8.16 Last four years (1981-1984 in the time series of the log of numbers
 #of drivers KSI: observed series, forecasts obtained from the analysis up to February 1983, 
 #and modelled development for the complete series including an intervention variable for February 1983",
-plot(window(dataUKdriversKSI, start = c(1981, 12)), xaxt = "n")
+plot(window(dataUKdriversKSI, start = c(1981, 12)), xaxt = "n", xlab = "", ylab = "")
 lines(outPredict1[, 1], lty = 3)
 lines(outPredict2[, 1], lty = 2)
 title(main = "Figure 8.16 Last four years (1981-1984 in the time series of the log of numbers\n of drivers KSI: observed series, forecasts obtained from the analysis up to February 1983, \n and modelled development for the complete series including an intervention variable for February 1983",