R/tsscompareComp.R

In ayak9/USFSAevents: USFSA Competition Event Comparisons

#' Comparing Total Segment Scores for two Events
#'
#' @param dat1 data frame of first event data
#' @param dat2 data frame of second event data
#'
#' @return boxplot for two competitions
#' @export
#'
#' @importFrom graphics boxplot
#' @examples
#' Comp1 = anycomp('https://ijs.usfigureskating.org/leaderboard/results/2018/26192/SEGM036.html')
#' Comp2 = anycomp('https://ijs.usfigureskating.org/leaderboard/results/2019/27958/SEGM040.html')
#' tsscompareComp(Comp1, Comp2)
tsscompareComp = function(dat1, dat2){
  plot <- boxplot(dat1$TSS, dat2$TSS, main="TSS by Event", names=c("1", "2"), xlab="Event", ylab="Scores")
  return(plot)
}