Dokładność knn w r

k_7 <- class::knn(training_data, testing_data, training_labels, k = 7)
mean(data_actual == k_7)
Successful Salmon