# NOT RUN {
DataSets <- IntermittentDemandDataGenerator(data,
FC_Periods = 52,
SaveData = FALSE,
FilePath = NULL,
TargetVariableName = "qty",
DateVariableName = "date",
GroupingVariables = "sku",
MinTimeWindow = 1,
MinTxnRecords = 2,
Lags = 1:7,
MovingAverages = seq(7,28,7),
TimeTrendVariable = TRUE,
TimeUnit = "day",
CalendarVariables = c("wday",
"mday",
"yday",
"week",
"isoweek",
"month",
"quarter",
"year"),
HolidayGroups = "USPublicHolidays",
SampleRate = 0.50)
CountModelData <- DataSets$CountModelData
SizeModelData <- DataSets$SizeModelData
rm(DataSets)
# }
Run the code above in your browser using DataLab