## ------------------------------------------------
## Method `KNeighborsClassifier$new`
## ------------------------------------------------
knc <- KNeighborsClassifier$new()
knc <- KNeighborsClassifier$new(k = 5)
## ------------------------------------------------
## Method `KNeighborsClassifier$fit`
## ------------------------------------------------
data(iris)
split_list <- train_test_split(iris, test_size = 0.3)
X_train <- split_list[[1]]
X_test <- split_list[[2]]
y_train <- split_list[[3]]
y_test <- split_list[[4]]
knc <- KNeighborsClassifier$new()
knc$fit(X_train, y_train)
## ------------------------------------------------
## Method `KNeighborsClassifier$predict`
## ------------------------------------------------
knc <- KNeighborsClassifier$new()
knc$fit(X_train, y_train)
preds <- knc$predict(X_test)
knc <- KNeighborsClassifier$new()
preds <- knc$fit(X_train, y_train)$predict(X_test)
preds <- KNeighborsClassifier$new()$fit(X_train, y_train)$predict(X_test)
print(caret::confusionMatrix(data=factor(preds), reference = factor(y_test)))
## ------------------------------------------------
## Method `KNeighborsClassifier$get_estimator_type`
## ------------------------------------------------
knc$get_estimator_type()
Run the code above in your browser using DataLab