library(daltoolbox)
#loading the example database
data(examples_anomalies)
#Using example tt
dataset <- examples_anomalies$tt
dataset$event <- factor(dataset$event, labels=c("FALSE", "TRUE"))
slevels <- levels(dataset$event)
# separating into training and test
train <- dataset[1:80,]
test <- dataset[-(1:80),]
# normalizing the data
norm <- minmax()
norm <- fit(norm, train)
train_n <- daltoolbox::transform(norm, train)
# establishing decision tree method
model <- hanc_ml(cla_dtree("event", slevels))
# fitting the model
model <- fit(model, train_n)
# evaluating the detections during testing
test_n <- daltoolbox::transform(norm, test)
detection <- detect(model, test_n)
print(detection[(detection$event),])
Run the code above in your browser using DataLab