# NOT RUN {
N = 25116
data1 <- data.table::data.table(DateTime = as.Date(Sys.time()),
Target = stats::filter(rnorm(N,
mean = 50,
sd = 20),
filter=rep(1,10),
circular=TRUE))
data1[, temp := seq(1:N)][, DateTime := DateTime - temp]
data1 <- data1[order(DateTime)]
data1 <- Scoring_GDL_Feature_Engineering(data1,
lags = c(seq(1,5,1)),
periods = c(3,5,10,15,20,25),
statsNames = c("MA"),
targets = c("Target"),
groupingVars = NULL,
sortDateName = c("DateTime"),
timeDiffTarget = c("Time_Gap"),
timeAgg = "days",
WindowingLag = 1,
Type = "Lag",
Timer = TRUE,
SimpleImpute = TRUE,
AscRowByGroup = "temp",
RecordsKeep = 1)
# }
Run the code above in your browser using DataLab