KNN chunk NBA

```{r knnModel}
library(pacman)
p_load(caret, ggplot)

# knnTrain = train_final

# knnTest = test_final


knnTest = testdec.iqr
knnTrain = traindec.iqr

# Categoricals to factors
for (i in c(8:10)){
  knnTrain[,i] <- as.factor(knnTrain[,i])
  knnTest[,i] <- as.factor(knnTest[,i])
}

# Adding names to factors due to error when running train() "one of the class levels is not a valid R variable name"
levels(knnTrain$LOCATION_HOME) = c("A", "H")
levels(knnTrain$FGM) = c("miss", "made")
levels(knnTrain$PTS_TYPE_2) = c("three", "two")

levels(knnTest$LOCATION_HOME) = c("A", "H")
levels(knnTest$FGM) = c("miss", "made")
levels(knnTest$PTS_TYPE_2) = c("three", "two")

# Setting parameters for tuning repetitions and cross-validation in model
ctrl <- trainControl(
  classProbs = TRUE,
  method = "repeatedcv", # repeated cross-validation method
  number = 5,    # number of folds
  repeats = 10, # number of complete sets of folds
  )

# Modeling with training set
fgmknnModel <- train(FGM~., data = knnTrain, method = "knn", tuneGrid=expand.grid(k=200:220), trControl = ctrl)
fgmknnModel

# Determining and plotting the variable importance
fgmimpvar = varImp(fgmknnModel, scale = T)
ggplot(fgmimpvar)

# Predicting shot outcome and establishing final accuracy using test set
TestPred <- predict(fgmknnModel, knnTest)
confusionMatrix(TestPred, knnTest$FGM)

```