## Not run:
# library(intubate)
# library(magrittr)
# library(forecast)
#
# ## ntbt_tslm: Fit a linear model with time series components
# dta <- data.frame(y <- ts(rnorm(120,0,3) + 1:120 + 20*sin(2*pi*(1:120)/12), frequency=12))
#
# ## Original function to interface
# tslm(y ~ trend + season, data = dta)
#
# ## The interface puts data as first parameter
# ntbt_tslm(dta, y ~ trend + season)
#
# ## so it can be used easily in a pipeline.
# dta %>%
# ntbt_tslm(y ~ trend + season)
# ## End(Not run)
Run the code above in your browser using DataLab