optimal implementation of a weighted knn model

knnBest_kaggleDigitRecognition

# load test datasets
test <- read.csv("test.csv", header=TRUE)

# train the optimal kknn model
model <- kknn(as.factor(label) ~ ., train, test, k=9, kernel="triangular")
results <- model$fitted.values

# save the class predictions in a column vector
write(as.numeric(levels(results))[results], file="kknn_submission.csv", ncolumns=1)