library(RJDemetra)
wk <- load_workspace(file = "C:/Desezona_M/bdp/WS - BDP.xml")
compute(wk)
sap <- get_object(wk,1)
get_name(sap)
sa <- get_object(sap, 7)
get_name(sa)
model_sa <- get_model(sa,wk)
spec_1<- x13_spec(model_sa)
series <- get_ts(sa)
spec_ts <- tramoseats_spec(spec = "RSAfull" )
sa_ts <- tramoseats(series, spec = spec_ts)
wk1 <- new_workspace()
mp1 <- new_multiprocessing(wk1, "sa1")
add_sa_item(wk1, "sa1", model_sa, "X13")
add_sa_item(wk1, "sa1", sa_ts, "TramoSeats")
compute(wk1)
sap1 <- get_object(wk1,1)
sa2 <- get_object(sap1, 1)
model_sa_2 <- get_model(sa2,wk1)
final_comp1 <- model_sa$final$series
final_comp2 <- model_sa_2$final$series
This code works in some series and not in others. I simply have no explanation .