Ajoute de nouvelles valeurs à un ts

La fonction extend_ts ajoute de nouvelles valeurs à un ts.

Usage

extend_ts(series, replacement, date_ts = NULL, replace_na = TRUE)

Arguments

series

un objet ts unidimensionnel conforme aux règles de assert_ts

replacement

un vecteur de même type que le ts series

date_ts

un vecteur numérique, de préférence integer au format date_ts (AAAA, c(AAAA, MM) ou c(AAAA, TT)) (default NULL)

replace_na

un booléen

Value

En sortie, la fonction retourne une copie de l'objet series complété avec le vecteur replacement.

Details

Si replace_na vaut TRUE alors le remplacement commence dès que l'objet ne contient que des NA. Dans le cas contraire, le ts est étendu, qu'il contienne des NA ou non à la fin. Si le vecteur replacement est de taille un sous-multiple de la différence de période entre la date de fin de series et date_ts, le vecteur replacement est répété jusqu'à la date date_ts. Sinon une erreur est générée.

Examples

ts1 <- ts(
    data = c(rep(NA_integer_, 3L), 1L:10L, rep(NA_integer_, 3L)),
    start = 2020,
    frequency = 12
)
x <- rep(3L, 2L)

extend_ts(series = ts1, replacement = x)
#> Warning: extending time series when replacing values
#>      Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
#> 2020  NA  NA  NA   1   2   3   4   5   6   7   8   9
#> 2021  10   3   3                                    
extend_ts(series = ts1, replacement = x, replace_na = FALSE)
#> Warning: extending time series when replacing values
#>      Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
#> 2020  NA  NA  NA   1   2   3   4   5   6   7   8   9
#> 2021  10  NA  NA  NA   3   3                        
extend_ts(series = ts1, replacement = x,
          date_ts = c(2021L, 7L), replace_na = TRUE)
#> Warning: extending time series when replacing values
#>      Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
#> 2020  NA  NA  NA   1   2   3   4   5   6   7   8   9
#> 2021  10   3   3   3   3   3   3