Displaying 1 result from an estimated 1 matches for "myread".
Did you mean:
m_read
2008 Jan 08
1
Error with rbind and zoo
...ll:
I have a directory of files as in -------------> bunchafiles <-
list.files(path="/data/2.3/2006", pattern="returns",
full.names=T,recursive=T) .... Each file is a bunch of returns for a
particular date (unique). There are like 252 files or so.
With a custom function myread (below), I define a vector ----- res <-
vector("list",length=length(bunchafiles)) , and read files into it ----
res <- lapply(bunchafiles, myread)
myread <- function (x) {
y <- read.csv(x, as.is=T, header=T)
if (nrow(y) > 0) {
quotedate <-
strsplit(strsplit(x,&q...