From 16c2e872db5cd1ea4ccbc29fc778b11c2ac205a6 Mon Sep 17 00:00:00 2001 From: Alex Gebben Work Date: Thu, 22 Jan 2026 16:49:38 -0700 Subject: [PATCH] Updated names of results list --- Data_Proc.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data_Proc.r b/Data_Proc.r index 882db4e..444a992 100644 --- a/Data_Proc.r +++ b/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) }