loadFiles <- function(baseDir, files, colLabels)
{
  first = TRUE
  for(f in files)
  {
    t_file <- read.csv(paste(baseDir, f, ".csv", sep = ""), header=FALSE)
    colnames(t_file) = colLabels
    t_file$project = f
    
    if(first == TRUE)
    {
      first = FALSE
      combined <- t_file
    }
    else
    {
      combined <- rbind(combined, t_file)
    }
  }
  return(combined)
}