Updated names of results list

Data_Proc.r

@@ -25,7 +25,7 @@ colnames(RES) <- c("Facility",YEARS)
 MULTI_DISCOUNT_RATE_NPV <- function(INCREMENT=0.005,DATA=TOTAL,YEARS=1960:2083){
 	NCORES <- detectCores()-1
 	RES <- mclapply(seq(0,1,by=INCREMENT),NPV_CALC,mc.cores = NCORES)
-	names(RES) <- 100*seq(0,1,by=INCREMENT) #Name with the discount rate of the given table
+	names(RES) <- paste0("Per_",100*seq(0,1,by=INCREMENT)) #Name with the discount rate of the given table
 	return(RES)
 }