为什么使用CARET与FNN时预测的值在KNN回归方面有所不同

Question

我试图对KNN回归进行一些手动计算，并遇到了这个异常错误。手工完成的预测值与我从“商标”软件包中的“ knnreg”函数中获得的值不匹配。因此，我将另一个软件包（FNN）用作第二次检查，发现我的手动计算确实与FNN软件包中的计算一致。所以我现在真的很困惑。这是一个示例代码：

# caret  vs. FNN packages
# issue in predictions

library(caret)
library(FNN)
library(dbscan)

n <- 100

x <- rnorm(n)
y <- 2 + 3*x + rnorm(n, sd = 0.5)

x <- as.matrix(x)

# using caret
knn_caret <- knnreg(x, y, k = 5)
yhat_caret <- predict(knn_caret, newdata = x)

# using FNN
knn_FNN <- knn.reg(train = x, y = y, k = 5)
yhat_FNN <- knn_FNN$pred

# manual calculation using the neighbors.
# choose a point
i <- 3
nn <- kNN(x, k = 5) #using the caret package
neighbors <- nn$id[i, ]

mean(y[neighbors]) # manual calculation

yhat_FNN[i]  # FNN package

yhat_caret[i] # caret package

如果您可以指出我在代码中可能犯的任何错误，或者对此问题的任何想法将非常感谢。