data(Pinf)
pinfreps <- fix_replen(Pinf, c(2, 2, 6, 2, 2, 2, 2, 2, 3, 3, 2))
pthresh <- filter_stats(Pinf, distance = bruvo.dist, replen = pinfreps,
plot = TRUE, stats = "THRESHOLD", threads = 1L)
# prediction for farthest neighbor
cutoff_predictor(pthresh$farthest)
# prediction for all algorithms
sapply(pthresh, cutoff_predictor)
Run the code above in your browser using DataLab