diff options
| -rw-r--r-- | R/build_scenarios.R | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index e12abacb..67e1ffca 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -51,18 +51,6 @@ get.reinvassets <- function(dealname, workdate){ return( r )
}
-convert.reinvtoperct <- function(d){
- newd <- list(REINV_TBA1=numeric(0), REINV_TBA2=numeric(0))
- if(is.null(d["REINV_TBA2"]) || d["REINV_TBA1"] == d["REINV_TBA2"]){
- if(d["REINV_TBA1"]=="Float"){
- return(c(1,0))
- }else{
- return(c(0,1))
- }
- }
- return(c(0.85, 0.15))
-}
-
calibration.date <- prevBusDay(workdate)
calibration <- read.table(file.path(root.dir, "Scenarios", "Calibration",
paste0("calibration-", calibration.date,".csv")), sep=",", header=T)
|