Displaying 1 result from an estimated 1 matches for "endofdaydata".
2009 Dec 30
1
seg-fault... but on what
...= FALSE)
for (x in 1:length(fileList)){
string <- strsplit(fileList[x], "_", fixed = TRUE)
string <- string[[1]][1]
fileLines <- read.csv(fileList[x],header = FALSE,row.names = NULL )
for ( j in 1:length(fileLines[,1])){
sql <- paste("insert into endOfDayData
(date,market,symbol,open,high,low,close,volume) values ('",
fileLines[j,2],"','",string,"','",as.character(fileLines[j,1]),"','",fileLines[j,3],"','",fileLines[j,4],"','",fileLines[j
,5],"',&...