scenario1 <- function(){
  ## simulate great vs good player a la Hip's probabilities
  if (runif(1,0,1) <= .6 ){
    great_vs_good = 'great'
  } else{
    great_vs_good = 'good'
  }
  ## simulate great vs bad player a la Hip's probabilities
  if (runif(1,0,1) <= .9){
    great_vs_bad = 'great'
  } else{
    great_vs_bad = 'bad'
  }
  ## simulate great vs good player a la Hip's probabilities
  if (runif(1,0,1) <= .6){
    good_vs_bad = 'good'
  } else{
    good_vs_bad = 'bad'
  }
  ## concatenate results
  check_winner = c(great_vs_good, great_vs_bad, good_vs_bad)

  ## check for round robin re-do
  if (length(unique(check_winner)) == 3){
    winner = 'none'
  } else{
    winner = names(table(check_winner))[which.max(table(check_winner))]
  }
  return(winner)
}

scenario2 <- function(){
  ## great vs good scenario 2
  if (runif(1,0,1) <= .62 ){
    great_vs_good = 'great'
  } else{
    great_vs_good = 'good'
  }
  ## great vs bad scenario 2
  if (runif(1,0,1) <= .95){
    great_vs_bad = 'great'
  } else{
    great_vs_bad = 'bad'
  }
  ## good vs bad scenario 2
  if (runif(1,0,1) <= .8){
    good_vs_bad = 'good'
  } else{
    good_vs_bad = 'bad'
  }
  check_winner = c(great_vs_good, great_vs_bad, good_vs_bad)
  ## check for round robin
  if (length(unique(check_winner)) == 3){
    winner = 'none'
  } else{
    winner = names(table(check_winner))[which.max(table(check_winner))]
  }
  return(winner)
}