# NOT RUN {
data <- data.table::fread(
file.path(PathNormalizer(
"C:\\Users\\aantico\\Documents\\Package\\data"),
"tsdata.csv"))
TimeSeriesDataPrepare(
data = data,
TargetName = "Weekly_Sales",
DateName = "Date",
Lags = 5,
MovingAverages,
SeasonalMovingAverages,
SeasonalLags = 1,
TimeUnit = "week",
FCPeriods = 10,
HoldOutPeriods = 10,
TSClean = TRUE,
ModelFreq = TRUE,
FinalBuild = FALSE)
# }
Run the code above in your browser using DataLab