diff options
Diffstat (limited to 'R/intex_deal_functions.R')
| -rw-r--r-- | R/intex_deal_functions.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/intex_deal_functions.R b/R/intex_deal_functions.R index 8e7d0b43..251c5fed 100644 --- a/R/intex_deal_functions.R +++ b/R/intex_deal_functions.R @@ -33,7 +33,7 @@ getdealdata <- function(dealnames, date){ getcollateral <- function(dealname, date){
if(missing(date)){
- sqlstring <- sprintf("select * from et_aggdealinfo('%s')", dealname, date)
+ sqlstring <- sprintf("select * from et_aggdealinfo('%s')", dealname)
}else{
sqlstring <- sprintf("select * from et_aggdealinfo_historical('%s', '%s')", dealname, date)
}
@@ -252,7 +252,7 @@ buildSC <- function(line.item, reinvdate, dealmaturity, global.params, startdate return( list(SC=SC, notional=line.item$currentbalance, price = line.item$price) )
}
-buildSC.portfolio <- function(dealname, dealdata, cusipdata, global.params, startdate=Sys.Date()) {
+buildSC.portfolio <- function(dealname, dealdata, cusipdata, global.params, startdate = Sys.Date()) {
collatdata <- getcollateral(dealname, startdate)
index <- hash(cusipdata$cusip, 1:length(cusipdata$cusip))
notionalvec <- c()
|