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