library(daltoolbox)
# Load anomaly example data
data(examples_anomalies)
# Use a simple example
dataset <- examples_anomalies$simple
head(dataset)
# Configure an ensemble of detectors
model <- har_ensemble(hanr_arima(), hanr_arima(), hanr_arima())
# model <- har_ensemble(hanr_fbiad(), hanr_arima(), hanr_emd())
# Fit all ensemble members
model <- fit(model, dataset$serie)
# Run ensemble detection
detection <- detect(model, dataset$serie)
# Show detected events
print(detection[(detection$event),])
Run the code above in your browser using DataLab