try_sa {dateutils}

Seasonally adjust data using seas()

Description

Seasonaly adjust monthly or quarterly data using X-13 SEATS via seas()

Usage

try_sa(x, dates, x11 = FALSE, transfunc = "none", series_name = NULL)

Arguments

x

data

dates

dates corresponding to data 'x'

x11

T/F, use x11 as opposed to X-13 SEATS

transfunc

Data transformation, one of 'none' for no transformation, 'auto' for automatic detection, or 'log' for log transformation

series_name

Include series name to print out if failure (for lapply() applications)

Value

A list with 'adj_fact' containing seasonal factors and 'sa_final' containing seasonally adjusted data. If seasonal adjsutment failed 'adj_fact' will contain zeros and 'sa_final' will contain the original data.

Examples

x <- fred[series_name == "gdp constant prices", value]
dates <- fred[series_name == "gdp constant prices", ref_date ]
try_sa(x, dates, transfunc = "log")