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