This suggestion does not work. x seems to have twice the number of
entries as spl.
> x <- do.call(rbind, spl)
> names(x) <- c('Date', 'quarter')
> x$Date <- as.Date(x$Date)
Error in x$Date : $ operator is invalid for atomic vectors
> x$quarter <- as.numeric(x$quarter)
Error in x$quarter : $ operator is invalid for atomic vectors
> names(x)
[1] "Date" "quarter" NA NA NA NA
NA
[8] NA NA NA NA NA NA
NA
[15] NA NA NA NA NA NA
NA
[22] NA NA NA NA NA NA
NA
[29] NA NA NA NA NA NA NA
# and on for 13000 entries!
Making it a data.frame dod not work either.
I also tried
qt=c(length(spl))
dt=c(length(spl))
###
for(j in 1:length(spl)) {
dt[j]=spl[[j]][1]
qt[j]=spl[[j]][2]
}
qt=as.numeric(qt)
dt=as.POSIXlt(dt)
rate=as.vector(ar)
ratedata=data.frame(c(rate=rate,date=dt,quarter=qt))
###
but then ratedata was totally wrong.
Thanks,
Jim
On 1/18/10 4:59 PM, Dennis Murphy wrote:
> Hi James:
>
> To slurp your list into a matrix, run
>
> x <- do.call(rbind, yourlistname)
>
> Date <- as.Date(x[, 1])
> quarter <- as.numeric(x[, 2])
>
> You could also convert x to a data frame with as.data.frame(x) :
>
> x <- as.data.frame(x)
> names(x) <- c('Date', 'quarter')
> x$Date <- as.Date(x$Date)
> x$quarter <- as.numeric(x$quarter)
>
> do.call() takes a function as its first argument and a list as its
> second argument.
>
> HTH,
> Dennis
>
> On Mon, Jan 18, 2010 at 1:48 PM, James Rome <jamesr...@gmail.com
> <mailto:jamesr...@gmail.com>> wrote:
>
> I successfully combined my data frames, and am now on my next hurdle.
>
> I had combined the data and quarter, and used tapply to count the
> entries for each unique date/quarter pair.
> ar= tapply(ewrgnd$gw, list(ewrgnd$dq), sum) #for each date/quarter
> combination sums the gw (which are all 1)
> dq=row.names(ar)
> spl=strsplit(dq)
> But I need to split them back into the separate date and quarter. So I
> used strsplit(), and get
> > spl
> [[1]]
> [1] "2009-01-01" "60"
>
> [[2]]
> [1] "2009-01-01" "61"
>
> [[3]]
> [1] "2009-01-01" "62"
>
> [[4]]
> [1] "2009-01-01" "63"
>
> [[5]]
> [1] "2009-01-01" "68"
> . . .
>
> But lists throw me. I want to get separate vectors of the date and
> quarter out of my list. All the things I have seen extract rows
> from the
> list. I need to extract columns.
>
> Thanks list,
> Jim Rome
>
> ______________________________________________
> R-help@r-project.org <mailto:R-help@r-project.org> mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
