diff options
Diffstat (limited to 'R/load_cf.R')
| -rw-r--r-- | R/load_cf.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/load_cf.R b/R/load_cf.R index a2454943..d0f7708b 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -137,7 +137,7 @@ getdealcf <- function(dealnames, zipfiles, tradedate=Sys.Date()){ break
flag <- FALSE
}
- data <- data[-c(1,2),]
+ data <- data[-1,]
data <- data.table(data, key="Date")
data <- tryCatch({
data[,`:=`(Cashflow = sanitize.column(Cashflow),
@@ -251,7 +251,7 @@ getcusipcf <- function(params, cfdata, dist, tradedate=Sys.Date()){ flag <- FALSE
break
}
- data <- data[-c(1,2),]
+ data <- data[-1,]
data <- data.table(data, key="Date")
data[,Balance:=pmax(Balance-`Accum Interest Shortfall`, 0)]
r[j,] <- as.numeric(df[data, roll=TRUE][,list(Cashflow=temp <- sum(Cashflow*Discounts),
|