Function to change the input time series of a SaItem
set_ts(sa_item, ts)
the sa_item
to modify.
the new stats::ts()
object.
a sa_item
library("RJDemetra")
# Definition of the original time series
sa_x13 <- jx13(series = ipi_c_eu[, "FR"])
wk <- new_workspace()
sap1 <- new_multiprocessing(workspace = wk, name = "sap-1")
# Adding a new SA-Item (`sa_x13`) to `sap1`
add_sa_item(workspace = wk, multiprocessing = "sap-1",
sa_obj = sa_x13, name = "X13")
# Retrieving the adjusted series
sa_item1 <- get_object(x = sap1, pos = 1L)
# Creation of a new sa_item and change of the input time series
new_sa_item <- set_ts(sa_item = sa_item1, ts = ipi_c_eu[, "BE"])
# Replacement of the series in the workspace
replace_sa_item(sap = sap1, pos = 1L, sa_item = new_sa_item)