library(daltoolbox)
#loading the example database
data(examples_motifs)
#Using sequence example
dataset <- examples_motifs$simple
head(dataset)
# setting up discord discovery method
model <- hdis_mp("stamp", 4, 3)
# fitting the model
model <- fit(model, dataset$serie)
detection <- detect(model, dataset$serie)
# filtering detected events
print(detection[(detection$event),])
Run the code above in your browser using DataLab