lab <- liste


## dbscan

library("dbscan")
 cl <- hdbscan(lab, minPts = 5)
 



tahmin <- cbind.data.frame(lab, cl$cluster)

colnames(tahmin) <- c("isim", "lab1", "lab2", "lab3", "Data", "Class")


View(tahmin, "lab")