This script was edited months afterwards to correct the regex error with the knee to body getting selected as a knee strike, so now the counts are accurate. Updated 2/11/2020.

Put in the first 50 samples of Wolfey (Mazvidal) as the testing set to see the prediction accuracy of hits landed with VulfenSarah (Nunez) hits landed comparison

library(caret)
library(randomForest)
library(MASS)
library(gbm)
library(dplyr)
library(DT)
Vulfen1 <- read.csv('Nunez-ML-Analysis-editedRegex.csv', 
                       sep=',', header=TRUE, 
                       na.strings=c('','NA'))
Nunez <- datatable(data=Vulfen1,  rownames=FALSE,
                      filter=list(position='top'),
                      options=list(
                        dom='Bfrtip',
                        buttons=c('csv'),
                        language=list(sSearch='Filter:')),
                      extensions=c('Buttons','Responsive')
                      )
Nunez