diff options
| -rw-r--r-- | R/mlpdb.R | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -74,7 +74,7 @@ get.tranchequotes <- function(indexname, tenor='5yr', date=Sys.Date()){ distinct.quotes <- dbGetQuery(mlpdbCon, sprintf(sqlstr, temp$index, temp$series, date, tenor)) flag <- FALSE ##we loop through the disctinct quotes until we find a complete set - for(i in seq_along(distinct.quotes)){ + for(i in 1:nrow(distinct.quotes)){ sqlstr <- paste("select * from tranche_quotes where index='%s'", "and series=%s and tenor = '%s' and quotedate='%s'", "and detach-attach!=5 and quotesource='%s' order by attach asc") |