# NOT RUN {
DataSets <- ContinuousTimeDataGenerator(
data,
RestrictDateRange = TRUE,
FC_Periods = 52,
SaveData = FALSE,
FilePath = normalizePath("./"),
TargetVariableName = "qty",
DateVariableName = "date",
GDL_Targets = NULL,
GroupingVariables = "sku",
HierarchyGroupVars = NULL,
TimeGroups = c("raw","day","week"),
MinTimeWindow = 1,
MinTxnRecords = 2,
Lags = 1:7,
MA_Periods = 10L,
SD_Periods = 10L,
Skew_Periods = 10L,
Kurt_Periods = 10L,
Quantile_Periods = 10L,
Quantiles_Selected = c("q5"),
HolidayLags = c(1L:7L),
HolidayMovingAverages = c(2L:14L),
TimeBetween = NULL,
TimeTrendVariable = TRUE,
TimeUnit = "day",
CalendarVariables = c("wday",
"mday",
"yday",
"week",
"isoweek",
"month",
"quarter",
"year"),
HolidayGroups = "USPublicHolidays",
PowerRate = 0.5,
SampleRate = 5,
TargetWindowSamples = 5,
PrintSteps = TRUE)
CountModelData <- DataSets$CountModelData
SizeModelData <- DataSets$SizeModelData
rm(DataSets)
# }
Run the code above in your browser using DataLab