Merge pull request #50 from TanguyBarthelemy/develop

new version .9000

.gitignore

@@ -56,3 +56,5 @@ rsconnect/
 
 # produced README.html
 README.html
+/doc/
+/Meta/

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rjd3revisions
 Type: Package
 Title: Revision analysis with 'JDemetra+ 3.x'
-Version: 1.3.2
+Version: 1.3.2.9000
 Authors@R: c(
     person(given = "Corentin", family = "Lemasson",
            email = "[email protected]", role = c("aut", "cre")), 
@@ -12,6 +12,10 @@ Description: Revision analysis tool part of 'JDemetra+ 3.x' (<https://github.com
              with the results. The various tests enable the users to detect
              potential bias and sources of inefficiency in preliminary 
              estimates.
+License: EUPL | file LICENSE
+URL: https://github.com/rjdverse/rjd3revisions, https://rjdverse.github.io/rjd3revisions/
+BugReports: https://github.com/rjdverse/rjd3revisions/issues
+SystemRequirements: Java (>= 17)
 Depends:
     R (>= 4.1.0)
 Imports:
@@ -31,10 +35,7 @@ Suggests:
     readxl,
     formattable
 Remotes:
-    github::rjdverse/rjd3toolkit@*release
-SystemRequirements: Java (>= 17)
-License: EUPL | file LICENSE
-Encoding: UTF-8
+    github::rjdverse/rjd3toolkit
 Collate: 
     'rjd3revisions-package.R'
     'check.R'
@@ -46,8 +47,8 @@ Collate:
     'tests.R'
     'vintages.R'
     'zzz.R'
-RoxygenNote: 7.3.2
-URL: https://github.com/rjdverse/rjd3revisions, https://rjdverse.github.io/rjd3revisions/
-BugReports: https://github.com/rjdverse/rjd3revisions/issues
 Config/testthat/edition: 3
+Encoding: UTF-8
+RoxygenNote: 7.3.2
+Roxygen: list(markdown = TRUE)
 VignetteBuilder: knitr

R/report.R

@@ -18,18 +18,27 @@
 #' @examples
 #'
 #' ## Simulated data
-#'
-#' long_format <- rjd3revisions:::simulate_long(
-#'     start_period = as.Date("2020-01-01"),
-#'     n_period = 24,
-#'     n_revision = 6,
-#'     periodicity = 12L
-#' )
+#' period_range <- seq(as.Date('2011-01-01'),as.Date('2020-10-01'),by='quarter')
+#' qtr <- (as.numeric(substr(period_range,6,7))+2)/3
+#' time_period <- rep(paste0(format(period_range, "%Y"), "Q", qtr),5)
+#' np <- length(period_range)
+#' rev_date <- c(rep("2021-06-30",np), rep("2021-12-31",np), rep("2022-06-30",np),
+#'             rep("2022-12-31",np), rep("2023-06-30",np))
+#' set.seed(1)
+#' xt <- cumsum(sample(rnorm(1000,0,1), np, TRUE))
+#' rev <- rnorm(np*4,0,.1)
+#' obs_values <- xt
+#' for(i in 1:4) {
+#'   xt <- xt+rev[(1+(i-1)*np):(i*np)]
+#'   obs_values <- c(obs_values,xt)
+#' }
+#' df <- data.frame(rev_date, time_period, obs_values)
 #'
 #' ## Make analysis and generate the report
 #'
-#' vintages <- create_vintages(long_format, periodicity = 12L)
+#' vintages <- create_vintages(df, periodicity = 4L, type = "long")
 #' rslt <- revision_analysis(vintages, view = "diagonal")
+#'
 #' \dontrun{
 #' render_report(
 #'     rslt,