clearGlobalVars <- function() {
  COUNTS <- vector()
  SUMCOUNTS <- vector()
  PARTITION <- vector()
  POP_LOGML <- vector()
  LOGDIFF <- vector()
}