lab <- liste

predicted <- kmeans(lab[,c(2,3,4)],10,nstart = 20)

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

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


View(tahmin, "lab")