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