diff options
| -rw-r--r-- | R/build_scenarios.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index c8d98e12..5cf54d83 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -26,7 +26,7 @@ if(length(args) >= 1){ if(length(args) >=2){
argslist <- strsplit(args[-1], ",")
dealnames <- unlist(lapply(argslist, function(x)x[1]))
- reinvflags <- as.logical(as.numeric(unlist(lapply(argslist, function(x)x[2]))))
+ reinvflags <- as.logical(unlist(lapply(argslist, function(x)x[2])))
}else{
data <- read.table(file.path(root.dir, "scripts", "deals_to_price.txt"),
colClasses=c("character", "logical"))
|