<div dir="ltr">Só para constar,<div>as funções do lubridate já são vetorizadas então não precisa do sapply:</div><div>library(lubridate)</div><div>dates <- c("2011-01-17", "2009-11-21")<br>p <- as.period( interval( ymd(dates), Sys.Date() ) )<br></div><div>year(p)*12 + month(p)<br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2016-12-22 15:31 GMT-02:00 Karina Rebuli via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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><div class="h5"><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" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div lang="PT-BR" link="#0563C1" vlink="#954F72" class="m_4796037244348093620gmail_msg"><div class="m_4796037244348093620m_-3371540158814534415WordSection1 m_4796037244348093620gmail_msg"><p class="MsoNormal m_4796037244348093620gmail_msg">Boa tarde<u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></p><p class="MsoNormal m_4796037244348093620gmail_msg"><u class="m_4796037244348093620gmail_msg"></u> <u class="m_4796037244348093620gmail_msg"></u></p><p class="MsoNormal m_4796037244348093620gmail_msg">Imagine o seguinte cmr:<u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></p><p class="MsoNormal m_4796037244348093620gmail_msg"><u class="m_4796037244348093620gmail_msg"></u> <u class="m_4796037244348093620gmail_msg"></u></p><table class="m_4796037244348093620m_-3371540158814534415MsoNormalTable m_4796037244348093620gmail_msg" border="0" cellspacing="0" cellpadding="0" width="819" style="width:614.25pt;background:white"><tbody><tr class="m_4796037244348093620gmail_msg"><td valign="top" style="padding:0cm 0cm 6.0pt 4.5pt" class="m_4796037244348093620gmail_msg"><p class="MsoNormal m_4796037244348093620gmail_msg" style="word-break:break-all"><span lang="EN-US" style="font-size:10.0pt;font-family:"Lucida Console";color:blue" class="m_4796037244348093620gmail_msg">as.Date(c("2011-01-17", "2009-11-21"))-Sys.Date()<u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></span></p><p class="MsoNormal m_4796037244348093620gmail_msg" style="word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black" class="m_4796037244348093620gmail_msg">Time differences in days<u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></span></p><p class="MsoNormal m_4796037244348093620gmail_msg" style="word-break:break-all"><span style="font-size:10.0pt;font-family:"Lucida Console";color:black" class="m_4796037244348093620gmail_msg">[1] -2166 -2588<u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></span></p></td></tr><tr class="m_4796037244348093620gmail_msg"><td valign="top" style="padding:0cm 0cm 6.0pt 4.5pt" class="m_4796037244348093620gmail_msg"></td></tr><tr class="m_4796037244348093620gmail_msg"><td valign="top" style="padding:0cm 0cm 6.0pt 4.5pt" class="m_4796037244348093620gmail_msg"><table class="m_4796037244348093620m_-3371540158814534415MsoNormalTable m_4796037244348093620gmail_msg" border="0" cellspacing="0" cellpadding="0" width="819" style="width:614.25pt"><tbody><tr class="m_4796037244348093620gmail_msg"><td width="1" valign="top" style="width:.75pt;padding:0cm 0cm 0cm 0cm" class="m_4796037244348093620gmail_msg"><p class="MsoNormal m_4796037244348093620gmail_msg"><span style="font-size:12.0pt;font-family:"Lucida Console";color:blue" class="m_4796037244348093620gmail_msg">> <u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></span></p></td></tr></tbody></table></td></tr></tbody></table><p class="MsoNormal m_4796037244348093620gmail_msg">Como eu conseguiria obter este resultado, não em dias, mas em meses?<u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></p><p class="MsoNormal m_4796037244348093620gmail_msg"><u class="m_4796037244348093620gmail_msg"></u> <u class="m_4796037244348093620gmail_msg"></u></p><p class="MsoNormal m_4796037244348093620gmail_msg">Leonard<u class="m_4796037244348093620gmail_msg"></u><u class="m_4796037244348093620gmail_msg"></u></p></div></div></div></div>______________________________<wbr>_________________<br class="m_4796037244348093620gmail_msg">
R-br mailing list<br class="m_4796037244348093620gmail_msg">
<a href="mailto:R-br@listas.c3sl.ufpr.br" class="m_4796037244348093620gmail_msg" target="_blank">R-br@listas.c3sl.ufpr.br</a><br class="m_4796037244348093620gmail_msg">
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" class="m_4796037244348093620gmail_msg" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br class="m_4796037244348093620gmail_msg">
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" class="m_4796037244348093620gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.</blockquote></div>
<br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><font size="2" style="font-family:arial">###############################################################</font><br><span style="font-family:arial;font-size:small">##  </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Jônatan Dupont Tatsch</span></div><div><span style="font-family:arial;font-size:small">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Professor do Departamento de Física</span></div><div><span style="font-size:small;font-family:arial">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Centro de Ciências Exatas e Naturais (CCNE)</span><br></div><div><span style="font-size:small;font-family:arial">##  </span><span style="color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;font-size:10.909090995788574px;line-height:12.997159004211426px;text-align:center;background-color:rgb(239,239,239)">Universidade Federal de Santa Maria - UFSM</span></div><div><span style="font-family:arial;font-size:small">##  </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Faixa de Camobi, Prédio 13 - Campus UFSM - </span><span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Santa Maria, RS, Brasil - 97105-900</span><br></div><div style="font-family:arial;font-size:small">##  <span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px">Telefone: +55(55)33012083</span><br></div><div style="font-family:arial;font-size:small">##  <span style="font-size:11px;text-align:center;background-color:rgb(239,239,239);color:rgb(150,150,150);font-family:Verdana,Arial,Helvetica,sans-serif;line-height:13px"><a href="http://www.ufsm.br/meteorologia" target="_blank">www.ufsm.br/meteorologia</a></span></div><div style="font-family:arial;font-size:small">###############################################################</div></div></div></div></div></div></div>
</div>