if (FALSE) {
# load and prepare data
data("winddata", package="bReeze")
# format time stamp
timestamp <- timestamp(timestamp=winddata[,1])
# format time stamp with given pattern
timestamp.2 <- timestamp(timestamp=winddata[,1], "%d.%m.%Y %H:%M")
# wrong pattern (
timestamp.2 <- timestamp(timestamp=winddata[,1], "%d.%m.%y %H:%M")
# strange time stamp pattern
ts <- c("TS 08/2012-10 8h10m30s", "TS 08/2012-10 8h20m30s",
"TS 08/2012-10 8h30m30s")
timestamp.3 <- timestamp(timestamp=ts) # pattern not found
timestamp.3 <- timestamp(timestamp=ts, "TS %m/%Y-%d %Hh%Mm%Ss")
# time zones
# manually define time zone
timestamp.4 <- timestamp(timestamp=winddata[,1], tz="CET")
# get time zone from timestamp
timestamp.5 <- timestamp(timestamp="2012-08-08 22:55 GMT", tz="?")
}
Run the code above in your browser using DataLab