[R] Hourly data with zoo

[Dennis Murphy]

Hi Steven:

How about this?

d  <-  rep(20110101,24)
h <- sprintf('%04d', seq(0, 2300, by = 100))
df  <-  data.frame(LST_DATE  =  d,  LST_TIME  =  h,  data  =  rnorm(24, 0, 1))
df <- transform(df, datetime = as.POSIXct(paste(LST_DATE, LST_TIME),
                format = '%Y%m%d %H%M'))

library(zoo)
X <- with(df, zoo(data, datetime))
class(X)
str(X)

HTH,
Dennis

On Sun, Sep 11, 2011 at 10:58 PM, steven mosher <moshersteven at gmail.com> wrote:
> I have date data as a numeric and hourly data in 0 to 2300 hours in a dataframe.
>
> d  <-  rep(20110101,24)
> h  <-  seq(from =  0, to  =  2300, by  = 100)
>
> df  <-  data.frame(LST_DATE  =  d,  LST_TIME  =  h,  data  =  rnorm(24, 0, 1))
>
> S  <-  chron(dates. = as.character(df$LST_DATE), times. =
> paste(as.character(df$LST_TIME/100), ":0:0", sep  = ""),
>           format  = c(dates  =  "Ymd",  times =  "h:m:s"))
> X  <-  zoo(df$data, order.by = S)
>
> And I want to create a regular zoo series,  The above works but its
> pretty ugly. Is there a more elegant way to do this.
>
> ______________________________________________
> R-help at 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.
>