Ajuda no calculo entre duas datas

Pessoal, Preciso de uma ajuda em um calculo entre 02 datas. Preciso que o resultado seja numero inteiro que nesse caso é 38 anos.
data_nascimento <- as.Date("1978-06-14")
data_nascimento
[1] "1978-06-14"
data_hoje <-as.Date("2017-03-23")
data_hoje
[1] "2017-03-23"
idade <-difftime(data_hoje, data_nascimento)/365
idade
Time difference of 38.8 days Edmar

Pode usar a função as.integer() idade <-as.integer(difftime(data_hoje, data_nascimento)/365) -- Atenciosamente, ================================== Felipe E. Barletta Mendes Estatístico(UFPR) - Conre3 9766-A Mestrando em Bioestatística(UEM) +55 (41)-92077191 +55 (41)-33287216 ===================================

floor(idade) Em 23 de março de 2017 15:35, Edmar Caldas via R-br < r-br@listas.c3sl.ufpr.br> escreveu:
Pessoal,
Preciso de uma ajuda em um calculo entre 02 datas. Preciso que o resultado seja numero inteiro que nesse caso é 38 anos.
data_nascimento <- as.Date("1978-06-14")
data_nascimento
[1] "1978-06-14"
data_hoje <-as.Date("2017-03-23")
data_hoje
[1] "2017-03-23"
idade <-difftime(data_hoje, data_nascimento)/365
idade
Time difference of 38.8 days
Edmar
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Rafael Garcia Cunha YNWA

Edmar, Se você quer fazer o cálculo "na unha" para o número de dias, o melhor é usar o divisor 365.25 para levar em conta os anos bissextos¹ Enquanto as propostas tanto de floor() como as.integer() façam o que você especificou, veja se não vale a pena você arrendondar levando em conta a fração, pois no caso do seu exemplo 38,8 está mais para 39 que 38 anos. . . HTH -- Cesar Rabak [1] Esse procedimento é usado até em programas da OMS. 2017-03-23 15:35 GMT-03:00 Edmar Caldas via R-br <r-br@listas.c3sl.ufpr.br>:
Pessoal,
Preciso de uma ajuda em um calculo entre 02 datas. Preciso que o resultado seja numero inteiro que nesse caso é 38 anos.
data_nascimento <- as.Date("1978-06-14")
data_nascimento
[1] "1978-06-14"
data_hoje <-as.Date("2017-03-23")
data_hoje
[1] "2017-03-23"
idade <-difftime(data_hoje, data_nascimento)/365
idade
Time difference of 38.8 days
Edmar
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
participantes (4)
-
Cesar Rabak
-
Edmar Caldas
-
Felipe
-
Rafael Garcia Cunha