From 2ae2abc960ddf994ea53336bd04c03e2cdf5078b Mon Sep 17 00:00:00 2001
From: Mitchell <mitch.ohara-wild@monash.edu>
Date: Mon, 22 Jul 2019 14:17:50 +1000
Subject: [PATCH 1/2] Update docs

---
 NAMESPACE            | 1 +
 man/plot.edObject.Rd | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/NAMESPACE b/NAMESPACE
index 6de7014..ed39bf6 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(plot,edObject)
 S3method(print,edObject)
 export(buildEDModel)
 export(detectEvents)
diff --git a/man/plot.edObject.Rd b/man/plot.edObject.Rd
index da8a66a..ddd6f53 100644
--- a/man/plot.edObject.Rd
+++ b/man/plot.edObject.Rd
@@ -8,5 +8,5 @@
   varsToPlot = names(edObject$classification))
 }
 \description{
-export
+Plot an Event Detection Object
 }

From 181879e46ca523b7fa16a3bd5be10a0c6c55447c Mon Sep 17 00:00:00 2001
From: Mitchell <mitch.ohara-wild@monash.edu>
Date: Mon, 22 Jul 2019 14:18:10 +1000
Subject: [PATCH 2/2] Fixed naming of ARIMA models for upcoming forecast 8.8
 release

cc @robjhyndman
---
 R/detectEvents.R | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/R/detectEvents.R b/R/detectEvents.R
index af55e4a..ea67327 100644
--- a/R/detectEvents.R
+++ b/R/detectEvents.R
@@ -141,6 +141,10 @@ detectEvents <- function(x,
     return(edModel)
 }
 
+model_name <- function(x, ...){
+    sub("forecast_", "", class(x)[1])
+}
+
 #' Print an Event Detection Object
 #'
 #' Prints the last classification results for an event detection object.
@@ -155,10 +159,10 @@ print.edObject <- function(x, ...){
     nModels <- length(x$modelList)
     if(nModels > 1){
         writeLines(paste0("Event Detection Object with ", nModels, " "
-                     , class(x$modelList[[1]])[1], " submodels"))
+                     , model_name(x$modelList[[1]]), " submodels"))
     }else if(nModels == 1){
         writeLines(paste0("Event Detection Object with 1 "
-                     , class(x$modelList[[1]])[1], " submodel"))
+                     , model_name(x$modelList[[1]]), " submodel"))
     }else{
         writeLines("Event Detection Object with no fitted models")
     }