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 <mosherste...@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@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.
>
______________________________________________
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.
