# NOT RUN {
train <- geccoIC2018Train[15000:17000,]
edObject <- detectEvents(train[,-c(1,11)],windowSize = 1000,
nIterationsRefit = 500,verbosityLevel = 2,
postProcessorControl = list(nStandardDeviationseventThreshold = 3))
qualityStatistics(edObject, train$EVENT)
# }
Run the code above in your browser using DataLab