# NOT RUN {
# Create fake data
data <- RemixAutoML::FakeDataGenerator(
Correlation = 0.70,
N = 50000,
ID = 2L,
FactorCount = 3L,
AddDate = TRUE,
ZIP = 0L,
TimeSeries = FALSE,
ChainLadderData = FALSE,
Classification = FALSE,
MultiClass = FALSE)
# Store Cols to diff
Cols <- names(data)[which(unlist(data[, lapply(.SD, is.numeric)]))]
# Clean data before running AutoDiffLagN
data <- RemixAutoML::ModelDataPrep(data = data, Impute = FALSE, CharToFactor = FALSE, FactorToChar = TRUE)
# Run function
data <- RemixAutoML::AutoDiffLagN(
data,
DateVariable = "DateTime",
GroupVariables = c("Factor_1", "Factor_2"),
DiffVariables = Cols,
DiffDateVariables = NULL,
NLag1 = 0L,
NLag2 = 1L,
Sort = TRUE,
RemoveNA = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab