<div>Não precisa de pacote, acho que é isso abaixo:<br /><br /># Seus dados salvo em "EnterExit.txt":</div>
<div><br />Entrada    Saída<br />13.00    17.00<br />15.01    16.38<br />   .</div>
<div>   .</div>
<div>   .</div>
<div>15.12    17.40<br /><br />dados <- read.table("EnterExit.txt",h=T)<br />attach(dados)<br /><br />dif <- mean(Saída-Entrada)<br /><br />[1]  1.767143<br /><br /><em>Att.</em><br /><em>André BVS</em><br /><br /></div>
<hr style="border-top: 1px solid #ccc;" />
<div>Em 01/07/2013 13:16, <strong>Edson Lira < edinhoestat@yahoo.com.br ></strong> escreveu:</div>
<div style="color: #000; background-color: #fff; font-family: lucida console, sans-serif; font-size: 12pt;">
<div>Caros amigos da Lista, tenho um banco com as variáveis abaixo:</div>
<div style="color: #000000; font-size: 16px; font-family: lucida console,sans-serif; background-color: transparent; font-style: normal;"> </div>
<table width="480" border="0" cellspacing="0" cellpadding="0"><colgroup><col width="106" /><col width="83" /><col width="54" /><col span="2" width="64" /></colgroup>
<tbody>
<tr>
<td class="xl65" style="height: 15.0pt; width: 80pt;" width="106" height="20">Dia_da_Semana</td>
<td class="xl65" style="width: 62pt;" width="83"> Dia_do_Mês </td>
<td class="xl65" style="width: 41pt;" width="54">Entrada</td>
<td class="xl65" style="width: 48pt;" width="64">Saída</td>
<td class="xl66" style="width: 48pt;" width="64">Semana</td>
</tr>
</tbody>
</table>
<div style="color: #000000; font-size: 16px; font-family: lucida console,sans-serif; background-color: transparent; font-style: normal;"> </div>
<div style="color: #000000; font-size: 16px; font-family: lucida console,sans-serif; background-color: transparent; font-style: normal;">No link abaixo está um banco teste para vocês analisarem.</div>
<div style="color: #000000; font-size: 16px; font-family: lucida console,sans-serif; background-color: transparent; font-style: normal;"> </div>
<table width="4" border="0" cellspacing="0" cellpadding="0"><colgroup><col width="106" /><col width="83" /><col width="54" /><col span="2" width="64" /></colgroup>
<tbody>
<tr>
<td class="xl63" style="height: 15.0pt; width: 80pt;" width="106" height="20"> </td>
<td class="xl63" style="width: 48pt;" width="64"> </td>
<td class="xl64" style="width: 48pt;" width="64"> </td>
</tr>
</tbody>
</table>
 <a href="http://www1.datafilehost.com/d/320c3ab5" target="_blank">http://www1.datafilehost.com/d/320c3ab5</a><br />
<div><br />Quero calcular a diferença de tempo entre a entrada e  a saída. Para poder analisar tempo médio por semana.<br /><br />Não estou conseguindo implementar nos pacotes chron e lubridate. <br /><br />Alguém poderia me ajudar?<br /><br /><br />[ ]'s.</div>
<div>Edson Lira<br />Estatístico<br />Manaus-Amazonas</div>
</div>
<div> </div>