library(kknn)
library(metrics)
KNN <- kknn(formula = scale(close_price) ~.,
     train.data,
     test.data,
     k = 4,
     distance = 2,
     kernel = "optimal"
     )

mdae(test.data$close_price, KNN$fitted.values)