v1.0.5.3

Author: arnaud-feldmann

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: disaggR
 Type: Package
 Title: Two-Steps Benchmarks for Time Series Disaggregation
-Version: 1.0.5.2
+Version: 1.0.5.3
 Authors@R: 
     c(person(given = "Arnaud",
              family = "Feldmann",
@@ -42,7 +42,7 @@ Imports:
 License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Suggests: 
     knitr,
     ggplot2 (>= 3.0.0),

NAMESPACE

@@ -22,8 +22,12 @@ S3method(fitted,twoStepsBenchmark)
 S3method(ggplot2::autoplot,threeRuleSmooth)
 S3method(ggplot2::autoplot,tscomparison)
 S3method(ggplot2::autoplot,twoStepsBenchmark)
+S3method(ggplotts,data.frame)
+S3method(ggplotts,ts)
 S3method(in_disaggr,threeRuleSmooth)
 S3method(in_disaggr,twoStepsBenchmark)
+S3method(in_disaggr_ctb,threeRuleSmooth)
+S3method(in_disaggr_ctb,twoStepsBenchmark)
 S3method(in_revisions,threeRuleSmooth)
 S3method(in_revisions,twoStepsBenchmark)
 S3method(in_sample,praislm)
@@ -39,6 +43,9 @@ S3method(monthplot,threeRuleSmooth)
 S3method(monthplot,twoStepsBenchmark)
 S3method(na.omit,threeRuleSmooth)
 S3method(na.omit,twoStepsBenchmark)
+S3method(neither_outlier_nor_constant,praislm)
+S3method(neither_outlier_nor_constant,threeRuleSmooth)
+S3method(neither_outlier_nor_constant,twoStepsBenchmark)
 S3method(outliers,praislm)
 S3method(outliers,twoStepsBenchmark)
 S3method(plot,threeRuleSmooth)
@@ -74,7 +81,6 @@ S3method(vcov,praislm)
 S3method(vcov,twoStepsBenchmark)
 S3method(window,threeRuleSmooth)
 S3method(window,twoStepsBenchmark)
-export()
 export(annualBenchmark)
 export(bflSmooth)
 export(default_col_pal)

R/in.R

@@ -148,6 +148,7 @@ in_disaggr_notctb <- function(object,type) {
 
 in_disaggr_ctb <- function(object) UseMethod("in_disaggr_ctb")
 
+#' @export
 in_disaggr_ctb.threeRuleSmooth <- function(object) {
   benchmark <- na.omit(as.ts(object))
 
@@ -164,6 +165,7 @@ in_disaggr_ctb.threeRuleSmooth <- function(object) {
             ))
 }
 
+#' @export
 in_disaggr_ctb.twoStepsBenchmark <- function(object) {
 
   hfserie <- model.list(object)$hfserie

R/plot.R

@@ -555,6 +555,7 @@ dftsforggplot <- function(object,series_names) {
 
 ggplotts <- function(object,...) UseMethod("ggplotts")
 
+#' @export
 ggplotts.data.frame <- function(object,show.legend, theme,type,
                                 xlab,ylab, group,lims,verysmall,
                                 ...) {
@@ -583,6 +584,7 @@ ggplotts.data.frame <- function(object,show.legend, theme,type,
     theme
 }
 
+#' @export
 ggplotts.ts <- function(object,show.legend, series_names,theme,type,
                         start, end, xlab,ylab, ...) {
 

R/utils.R

@@ -61,14 +61,17 @@ neither_outlier_nor_constant_impl <- function(hfserie, object) {
 
 neither_outlier_nor_constant <- function(object) UseMethod("neither_outlier_nor_constant")
 
+#' @export
 neither_outlier_nor_constant.twoStepsBenchmark <- function(object) {
   neither_outlier_nor_constant_impl(model.list(object)$hfserie, object)
 }
 
+#' @export
 neither_outlier_nor_constant.threeRuleSmooth <- function(object) {
   model.list(object)$hfserie
 }
 
+#' @export
 neither_outlier_nor_constant.praislm <- function(object) {
   neither_outlier_nor_constant_impl(model.list(object)$X, object)
 }