alex/CIFS_Storage_Demand_Model
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updated names of results list

Browse Source
This commit is contained in:
Alex Gebben Work 2026-01-22 16:49:38 -07:00
parent ee2cf3e8da
commit 16c2e872db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data_Proc.r
View File

@ -25,7 +25,7 @@ colnames(RES) <- c("Facility",YEARS)
MULTI_DISCOUNT_RATE_NPV <- function(INCREMENT=0.005,DATA=TOTAL,YEARS=1960:2083){ MULTI_DISCOUNT_RATE_NPV <- function(INCREMENT=0.005,DATA=TOTAL,YEARS=1960:2083){
NCORES <- detectCores()-1 NCORES <- detectCores()-1
RES <- mclapply(seq(0,1,by=INCREMENT),NPV_CALC,mc.cores = NCORES) 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) return(RES)
} }