R 不显示结果

Question

第一次提问

我试图在运行 Knn 时找到最好的 K 但是我从教授那里得到的代码似乎没有显示最好的结果 K 和 Rmse.

下面是我在控制台上输入的内容。感谢您的帮助！

#rm(list=ls())
gc()
#setwd('/******/Desktop/Applied/isds 574/R')
dat = read.csv('cleaned.csv', stringsAsFactors=T, head=T)

#dropping Longtitude and Latitude
dat$longitude = NULL 
dat$latitude = NULL
dat$X = NULL


#Factors 

dat$ocean_proxy_dummy = as.factor(dat$ocean_proxy_dummy)

# divide the data into 2 sets: training and validation
set.seed(1) 
id.train = sample(1:nrow(dat), nrow(dat)*.6) 
id.test = setdiff(1:nrow(dat), id.train) 

#KNN2
library(FNN)
Knn.reg.bestK = function(xtrain, xtest, ytrain, ytest, Kmax = 10) { 
  vec.rmse = rep(NA, Kmax) 
  for (K in 1:Kmax) { 
    yhat.test = Knn.reg(xtrain, xtest, ytrain, k)$pred 
    vec.rmse[K] = rmse(yhat.test, ytest) 
  }  
  list(K.opt = which.min(vec.rmse), rmse.min = min(vec.rmse), vec.rmse)
}

Answer 1

你从你的教授那里得到了这段代码，所以我不确定这个练习的目的是什么。我会告诉您，要实际查看函数 Knn.reg.bestK() 的结果，您需要对数据调用该函数。

Knn.reg.bestK(xtrain, xtest, ytrain, ytest)

但在此之前，您需要将这些变量名称设置为适当的值。

xtrain = id.train$variables #This is a dataframe of predictors
ytrain = id.train$response  #This is your outcome variable

R 不显示结果

R is not displaying the results

r

knn