The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

rjdmarkdown

Overview

rjdmarkdown gives a set of functions to print nicely your models created by RJDemetra.

Installation

rjdmarkdown relies on RJDemetra that requires Java SE 8 or later version.

# Install release version from CRAN
install.packages("rjdmarkdown")

# Install development version from GitHub
# install.packages("devtools")
devtools::install_github("AQLT/rjdmarkdown")

Usage

The functions developped are:

• print_preprocessing() for the pre-processing model;
  
• print_decomposition() for the decomposition;
  
• print_diagnostics() to print diagnostics tests on the quality of the seasonal adjustment.

The available outputs are LaTeX (format = "latex", the package booktabs and float must be used) and HTML outputs (format = "html").

The option results='asis' must be used in the chunk:

library(RJDemetra)
library(rjdmarkdown)
mysa <- x13(ipi_c_eu[, "FR"])
print_preprocessing(mysa, format = "latex")
print_decomposition(mysa, format = "latex")
print_diagnostics(mysa, format = "latex")

A R Markdown can also directly be created and render with the create_rmd function. It can take as argument a SA, jSA, sa_item, multiprocessing (all the models of the multiprocessing are printed) or workspace object (all the models of all the multiprocessing of the workspace are printed). For example:

sa_ts <- tramoseats(ipi_c_eu[, "FR"])
wk <- new_workspace()
new_multiprocessing(wk, "sa1")
add_sa_item(wk, "sa1", mysa, "X13")
add_sa_item(wk, "sa1", sa_ts, "TramoSeats")
# It's important to compute the workspace to be able to import the models
compute(wk)

output_file <- tempfile(fileext = ".Rmd")
create_rmd(wk, output_file, 
           output_format = c("pdf_document", "html_document"),
           output_options = list(toc = TRUE,
                                 number_sections = TRUE))
# To open the file:
browseURL(sub(".Rmd",".pdf", output_file, fixed = TRUE))
browseURL(sub(".Rmd",".html", output_file, fixed = TRUE))

LaTeX output

HTML output

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.