R/similarityToolTwoPlayersBB.R

In Metlover/similarityTool: Using Fangraphs Data, Generates Similarity Scores for Batters

similarityToolTwoPlayersBB <- function(battedBallVals, playerNameOne, playerNameTwo, yearOne, yearTwo){
  source("similarityToolBB.R")
  length = nrow(battedBallVals)
  result = similarityToolOff(battedBallVals, playerNameOne, length, yearOne)
  playerNameTwo = paste(playerNameTwo, toString(yearTwo), sep='')
  return(result[result$Name == playerNameTwo,]$Scores)
}