# NOT RUN {
data("humus", package = "mvoutlier")
columns_required = setdiff(colnames(humus)
, c("Cond", "ID", "XCOO", "YCOO", "LOI")
)
humus2 = humus[ , columns_required]
set.seed(1)
index = sample(ceiling(nrow(humus2) * 0.5))
isf = isolationForest$new() # initiate
isf$fit(humus2[index, ]) # fit on 80% data
isf$scores # obtain anomaly scores
# scores closer to 1 might indicate outliers
plot(density(isf$scores$anomaly_score))
isf$predict(humus2[-index, ]) # scores for new data
# }
Run the code above in your browser using DataLab