Compare series across workspaces

Reads multiple JDemetra+ workspaces and extracts comparable series (by SAI and series type), returning them in a tidy format. This is particularly useful to compare results across different specifications (e.g. RSA3 vs RSA5).

Usage

compare(..., series_names)

Arguments

...

character Workspace file paths.

series_names

character Vector of SAI names to compare.

Value

A data.frame with columns:

• ws: workspace name (derived from file basename),

• SAI: SAI name,

• series: type of series,

• date: observation date,

• value: numeric value.

Examples

library("rjd3toolkit")
library("rjd3x13")
library("rjd3workspace")

# \donttest{
# Two demo workspaces (RSA3 and RSA5)
jws_rsa3 <- create_ws_from_data(ABS, x13_spec("rsa3"))
jws_rsa5 <- create_ws_from_data(ABS, x13_spec("rsa5"))

path_rsa3 <- tempfile(pattern = "ws-rsa3", fileext = ".xml")
path_rsa5 <- tempfile(pattern = "ws-rsa5", fileext = ".xml")

save_workspace(jws_rsa3, file = path_rsa3)
save_workspace(jws_rsa5, file = path_rsa5)

df <- compare(path_rsa3, path_rsa5, series_names = "X0.2.09.10.M")
head(df)
#>                    ws          SAI series       date value
#> 1 ws-rsa32476501b9848 X0.2.09.10.M     a1 1982-04-01 460.1
#> 2 ws-rsa32476501b9848 X0.2.09.10.M     a1 1982-05-01 502.6
#> 3 ws-rsa32476501b9848 X0.2.09.10.M     a1 1982-06-01 443.8
#> 4 ws-rsa32476501b9848 X0.2.09.10.M     a1 1982-07-01 459.1
#> 5 ws-rsa32476501b9848 X0.2.09.10.M     a1 1982-08-01 438.4
#> 6 ws-rsa32476501b9848 X0.2.09.10.M     a1 1982-09-01 465.1
# }