added "without seasonal and with fourier" method combinations for the dummies reports

Author: paulbarbu

2hrs_ph3_report_generator.R

@@ -624,6 +624,50 @@ fifthOD.fit <- quote(
   )}
 )
 
+report(model = paste0('Arima(order=c(1, 0, 0), seasonal=c(1, 0, 0), method="CSS", xreg=', paste0(deparse(fifthOD.fit), collapse='') ,')'),
+       series = '2hrs ph3',
+       transformation = 'identity()',
+       traindays = 7,
+       testdays = 3,
+       xreg = paste0(deparse(fifthOD.fcast), collapse=''))
+
+# dummies on the 5th obs (the "outlier")  without seasonal terms, with Fourier ----
+
+fifthOD.fcast <- quote(
+  {cbind(
+    dummies=getNthObsDummies(5, 1, h, frequency(.)),
+    fourier(., h=h, K=2)
+  )}
+)
+
+fifthOD.fit <- quote(
+  {cbind(
+    dummies=getNthObsDummies(5, 1, length(.), frequency(.)),
+    fourier(., K=2)
+  )}
+)
+
+report(model = paste0('Arima(order=c(1, 0, 0), method="CSS", xreg=', paste0(deparse(fifthOD.fit), collapse='') ,')'),
+       series = '2hrs ph3',
+       transformation = 'identity()',
+       traindays = 7,
+       testdays = 3,
+       xreg = paste0(deparse(fifthOD.fcast), collapse=''))
+
+# dummies on the 5-9th obs (the "outlier")  with seasonal terms, without Fourier ----
+
+fifthOD.fcast <- quote(
+  {cbind(
+    dummies=getNthObsDummies(5, 4, h, frequency(.))
+  )}
+)
+
+fifthOD.fit <- quote(
+  {cbind(
+    dummies=getNthObsDummies(5, 4, length(.), frequency(.))
+  )}
+)
+
 report(model = paste0('Arima(order=c(1, 0, 0), seasonal=c(1, 0, 0), method="CSS", xreg=', paste0(deparse(fifthOD.fit), collapse='') ,')'),
        series = '2hrs ph3',
        transformation = 'identity()',

arima_model.Rmd

@@ -297,6 +297,7 @@ Time elapapsed for forecasting **`r params$testdays`**
 ### Accuracy of the forecasts against the test data
 ```{r accuracy, echo=FALSE}
 knitr::kable(accuracy(fcast, data$test))
+#knitr::kable(accuracy(fcast, data$test), format='latex')
 ```
 
 ### Fitted values and forecasts plot against the real data