时间计算

使用 POSIXct 对象进行计算与使用 Date 对象完全类似。请尝试下面的代码来增加或减少 POSIXct 对象：

now <- Sys.time()
now + 3600          # add an hour
now - 3600 * 24     # subtract a day

时间对象之间相加或相减也很直接：

birth <- as.POSIXct("1879-03-14 14:37:23")
death <- as.POSIXct("1955-04-18 03:47:12")
einstein <- death - birth
einstein

您正在开发一个需要用户登录和登出的站点。您想知道某位用户在您网站上的总停留时长和平均停留时长。该用户登录了 5 次，也登出了 5 次。这些时间已收集在向量 login 和 logout 中，并已在工作空间中定义。

计算向量 logout 与 login 的差值，即用户每次独立会话的在线时长。将结果保存到变量 time_online。
打印变量 time_online，查看结果。
计算该用户的总在线时长。打印结果。
计算该用户的平均在线时长。打印结果。