printStandings <- function(standings, filename = "")
{
  standings <- sort(standings, decreasing = TRUE)
  standings_df <- data.frame(Team=names(standings), Points=standings, row.names=NULL)
  if (filename == "")
  {
    print(standings_df)
  }
  else
  {
    sink(filename)
    print(standings_df)
    sink()
  }
}