# NOT RUN {
dts <- c("2005-01-02 18:47:22",
"2005-12-24 16:30:58",
"2005-10-28 07:30:05",
"2005-12-28 07:01:05",
"2006-01-24 00:01:10")
y <- c(2.0, 2.2, 3.4, 2.5, 1.8)
df <- createDataFrame(data.frame(time = as.POSIXct(dts), y = y))
# }
# NOT RUN {
# }
# NOT RUN {
tmp <- createDataFrame(data.frame(time_string1 = as.POSIXct(dts),
time_string2 = as.POSIXct(dts[order(runif(length(dts)))])))
tmp2 <- mutate(tmp, datediff = datediff(tmp$time_string1, tmp$time_string2),
monthdiff = months_between(tmp$time_string1, tmp$time_string2))
head(tmp2)
# }
# NOT RUN {
# }
# NOT RUN {
tmp <- mutate(df, from_utc = from_utc_timestamp(df$time, "PST"),
to_utc = to_utc_timestamp(df$time, "PST"))
head(tmp)
# }
# NOT RUN {
# }
# NOT RUN {
tmp <- mutate(df, t1 = add_months(df$time, 1),
t2 = date_add(df$time, 2),
t3 = date_sub(df$time, 3),
t4 = next_day(df$time, "Sun"))
head(tmp)
# }
Run the code above in your browser using DataLab