1 files changed, 0 insertions, 9 deletions
diff --git a/R/creditIndex.R b/R/creditIndex.R
index e3002b3f..5fff04f8 100644
--- a/R/creditIndex.R
+++ b/R/creditIndex.R
@@ -102,15 +102,6 @@ tocsv <- function(index){
     return(paste(row, collapse=","))
 }
 
-sqlArray <- function(vec){
-    vec[is.na(vec)] <- "NULL"
-    return( sprintf("Array[%s]", paste(vec, collapse=",")) )
-}
-
-sqlQuote <- function(s){
-    return( sprintf("'%s'", s) )
-}
-
 tosql <- function(index){
     ## write sql representation of the index object
     values <- c(sqlQuote(index$tradedate),