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