R/f1.R

In yh2979/nba:

#'  the player for that year who scored the most points.
#'  @param year
#'  @example 
#'  f1(2011)
#'  
#'  @export
f1 <- function(x){
  year_data <- dplyr::filter(nba, Year == x)
  ranking <- dplyr::arrange(year_data, desc(PTS))
  mostscore <- ranking[1,]
  output <- dplyr::select(mostscore, Year, Player, PTS)
  return(output)
}