# NOT RUN {
data <- data.table::data.table(DateTime = as.Date(Sys.time()),
Target = stats::filter(rnorm(10000,
mean = 50,
sd = 20),
filter=rep(1,10),
circular=TRUE))
data[, temp := seq(1:10000)][, DateTime := DateTime - temp][, temp := NULL]
data <- data[order(DateTime)]
x <- data.table::as.data.table(sde::GBM(N=10000)*1000)
data[, predicted := x[-1,]]
data[, Fact1 := sample(letters, size = 10000, replace = TRUE)]
data[, Fact2 := sample(letters, size = 10000, replace = TRUE)]
data[, Fact3 := sample(letters, size = 10000, replace = TRUE)]
stuff <- GenTSAnomVars(data,
ValueCol = "Target",
GroupVars = c("Fact1","Fact2","Fact3"),
DateVar = "DateTime",
HighThreshold = 1.96,
LowThreshold = -1.96,
KeepAllCols = TRUE,
IsDataScaled = FALSE)
# }
Run the code above in your browser using DataLab