<div dir="ltr"><div><div><br>Olá, Leonard.<br><br>Sei duas formas de fazer isso.<br><br>=====<br>* Com os funções-base do R:<br>sapply( sapply( as.Date( c("2011-01-17", "2009-11-21") ), seq, Sys.Date(), by = "month" ), length )<br><br></div>Importante ressaltar que desssa forma se o dia das datas a serem comparadasfor maior que o dia da data atual, ele vai retornar um mês a mais (pois a seq() vai começar com a data passada e isso já é um retorno a ser contabilizado na length().<br><br>====<br></div>* Com funções do lubridate (acho o pacote excelente e uso bastante, é de autoria do Hadley):<br><div><div>sapply( c("2011-01-17", "2009-11-21"), function(day0){ <br>  p <- as.period( interval( ymd( day0 ), Sys.Date() ) )<br>  year(p)*12 + month(p)<br>})<br><br></div><div>Dessa forma não precisa se preocupar com o dia inicial e você ainda pode acrescentar o day(p)/30 ao retorno se quiser a fração do resultado em meses.<br><br></div><div>Abs,<br></div><div>Karina<br></div><div><br><br></div></div></div><br><div class="gmail_quote"><div dir="ltr">On Thu, Dec 22, 2016 at 3:03 PM Leonard Mendonça de Assis via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="PT-BR" link="#0563C1" vlink="#954F72" class="gmail_msg"><div class="m_-3371540158814534415WordSection1 gmail_msg"><p class="MsoNormal gmail_msg">Boa tarde<u class="gmail_msg"></u><u class="gmail_msg"></u></p><p class="MsoNormal gmail_msg"><u class="gmail_msg"></u> <u class="gmail_msg"></u></p><p class="MsoNormal gmail_msg">Imagine o seguinte cmr:<u class="gmail_msg"></u><u class="gmail_msg"></u></p><p class="MsoNormal gmail_msg"><u class="gmail_msg"></u> <u class="gmail_msg"></u></p><table class="m_-3371540158814534415MsoNormalTable gmail_msg" border="0" cellspacing="0" cellpadding="0" width="819" style="width:614.25pt;background:white"><tr class="gmail_msg"><td valign="top" style="padding:0cm 0cm 6.0pt 4.5pt" class="gmail_msg"><p class="MsoNormal gmail_msg" style="word-break:break-all"><span lang="EN-US" style="font-size:10.0pt;font-family:"Lucida Console";color:blue" class="gmail_msg">as.Date(c("2011-01-17", "2009-11-21"))-Sys.Date()<u class="gmail_msg"></u><u class="gmail_msg"></u></span></p><p class="MsoNormal gmail_msg" style="word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black" class="gmail_msg">Time differences in days<u class="gmail_msg"></u><u class="gmail_msg"></u></span></p><p class="MsoNormal gmail_msg" style="word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black" class="gmail_msg">[1] -2166 -2588<u class="gmail_msg"></u><u class="gmail_msg"></u></span></p></td></tr><tr class="gmail_msg"><td valign="top" style="padding:0cm 0cm 6.0pt 4.5pt" class="gmail_msg"></td></tr><tr class="gmail_msg"><td valign="top" style="padding:0cm 0cm 6.0pt 4.5pt" class="gmail_msg"><table class="m_-3371540158814534415MsoNormalTable gmail_msg" border="0" cellspacing="0" cellpadding="0" width="819" style="width:614.25pt"><tr class="gmail_msg"><td width="1" valign="top" style="width:.75pt;padding:0cm 0cm 0cm 0cm" class="gmail_msg"><p class="MsoNormal gmail_msg"><span style="font-size:12.0pt;font-family:"Lucida Console";color:blue" class="gmail_msg">> <u class="gmail_msg"></u><u class="gmail_msg"></u></span></p></td></tr></table></td></tr></table><p class="MsoNormal gmail_msg">Como eu conseguiria obter este resultado, não em dias, mas em meses?<u class="gmail_msg"></u><u class="gmail_msg"></u></p><p class="MsoNormal gmail_msg"><u class="gmail_msg"></u> <u class="gmail_msg"></u></p><p class="MsoNormal gmail_msg">Leonard<u class="gmail_msg"></u><u class="gmail_msg"></u></p></div></div>_______________________________________________<br class="gmail_msg">
R-br mailing list<br class="gmail_msg">
<a href="mailto:R-br@listas.c3sl.ufpr.br" class="gmail_msg" target="_blank">R-br@listas.c3sl.ufpr.br</a><br class="gmail_msg">
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" class="gmail_msg" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br class="gmail_msg">
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" class="gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote></div>