Como calculo a diferença entre duas datas em meses no R?
Suponha as duas datas:
x <- as.Date("2014-01-07")
y <- as.Date("2015-03-17")
Consigo facilmente calcular em segundos, minutos, horas, etc usando a função difftime
.
Mas ela não aceita meses :(
Com as seguintes funções consegui calcular, mas elas não devolvem frações de meses, como a difftime
.
monthdiff <- function(x, y){
x <- c(str_sub(x, 1, 4), str_sub(x, 5))
y <- c(str_sub(y, 1, 4), str_sub(y, 5))
12*(x[1]-y[1]) + (x[2] - y[2])
}
criar_anomes <- function(x){
sprintf("%4d%02d", year(x), month(x))
}
Assim obtenho:
library(lubridate)
monthdiff(criar_anomes(y), criar_anomes(x))
[1] 14
Além de um jeito que retornasse a fração (Neste caso deveria ser algo com 14,33 acho) dos meses, gostaria de uma forma mais elegante do que essa.