## ------------------------------------------------
## Method `KNeighborsRegressor$new`
## ------------------------------------------------
knr <- KNeighborsRegressor$new()
knr <- KNeighborsRegressor$new(k = 5)
## ------------------------------------------------
## Method `KNeighborsRegressor$fit`
## ------------------------------------------------
data(abalone)
split_list <- train_test_split(abalone[1:100,], test_size = 0.3)
X_train <- split_list[[1]]
X_test <- split_list[[2]]
y_train <- split_list[[3]]
y_test <- split_list[[4]]
knr <- KNeighborsRegressor$new()
knr$fit(X_train, y_train)
## ------------------------------------------------
## Method `KNeighborsRegressor$predict`
## ------------------------------------------------
knr <- KNeighborsRegressor$new()
knr$fit(X_train, y_train)
preds <- knr$predict(X_test)
knr <- KNeighborsRegressor$new()
preds <- knr$fit(X_train, y_train)$predict(X_test)
preds <- KNeighborsRegressor$new()$fit(X_train, y_train)$predict(X_test)
print(head(matrix(c(y_test, preds), ncol = 2, dimnames = (list(NULL, c("True", "Prediction"))))))
## ------------------------------------------------
## Method `KNeighborsRegressor$get_estimator_type`
## ------------------------------------------------
knr$get_estimator_type()
Run the code above in your browser using DataLab