library(daltoolbox)
# Load motif/discord example data
data(examples_motifs)
# Use a simple sequence example
dataset <- examples_motifs$simple
head(dataset)
# Configure discord discovery via SAX
model <- hdis_sax(26, 3, 3)
# Fit the model
model <- fit(model, dataset$serie)
# Run detection
detection <- detect(model, dataset$serie)
# Show detected discords
print(detection[(detection$event),])
Run the code above in your browser using DataLab