R时间计算出错

Question

我计算时间，代码是：

x <- as.Date("2016-01-01")
y <- as.Date("2016-01-31")
z <- as.Date("2017-01-01")
w <- max(0,y-x)
w2 <- z-x
w/w2

但是，我得到了错误：

Error in `/.difftime`(w, w2) : 
  second argument of / cannot be a "difftime" object

有什么办法可以弄清楚吗？

Answer 1

我们可以将 'w2' 转换为 numeric 因为它的 class 是 difftime

w/as.numeric(w2)
#[1] 0.08196721

R Time calculation get error