Skip to content
Prev 301938 / 398506 Next

Date period

Hello,

Try the following.


dat <- structure(list(date = c("2000-01-05 00:00:00", "2000-01-05 
01:00:00",
"2000-01-05 05:00:00", "2000-01-05 06:00:00", "2000-01-05 07:00:00",
"2000-01-05 08:00:00", "2000-01-05 09:00:00", "2000-01-05 10:00:00",
"2000-01-05 11:00:00", "2000-02-05 00:00:00", "2000-02-05 01:00:00",
"2000-02-05 05:00:00", "2000-02-05 06:00:00", "2000-02-05 07:00:00",
"2000-02-05 08:00:00", "2000-02-05 09:00:00", "2000-02-05 10:00:00",
"2000-02-05 11:00:00"), value = c(1, 1, 3.6, 3.6, 2.2, 2.2, 2.2,
2.2, 2.2, 1, 1, 3.6, 3.6, 2.2, 2.2, 2.2, 2.2, 2.2)), .Names = c("date",
"value"), row.names = c(NA, -18L), class = "data.frame")

library(chron) # needed for times()
dat$date <- as.POSIXct(dat$date)
tm <- times(format(dat$date, format="%H:%M:%S"))
inx <- times("00:00:00") <= tm & tm <= times("05:00:00")
dat[inx, ]

Hope this helps,

Rui Barradas
Em 01-08-2012 07:48, ??????????? ????????? escreveu: