<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:12pt"><div><span>Caros amigos da lista. Tenho 3507 medidas de tempo de doação distribuídas por dias conforme a tabela abaixo.<br></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;"><br><span></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif; background-color: transparent; font-style: normal;"><span><font size="1"><span style="font-family: Courier New,courier,monaco,monospace,sans-serif;"> 01  02  03  04  05  07  08  09  10  11  14  15  16  17  18  19  21  22 
 23  25  26  28  29  30  31 <br> 92 165 154 113 237 146 139 156  92 149 147 142 120 123 142 125 111  94  84  85  73  91 140 130 105 <br></span></font></span></div><div> <br><br>Gostaria de plotar os gráficos xbarra e o da amplitude para esses tempos. <br><br>Usei a rotina abaixo como o Eder me indicou:<br><br>amostra = sample(rep(1:631,5),3155) #rever esses parâmetros, pois só postei uma amostra<br>require(qcc)<br>tem <- qcc.groups(tempo,amostra)<br><br>Plotei o gráfico e funcionou, me mostrando os tempos e os grupos de amostra.<br><br>Funcioniou,  só que me deparei com outro problema, essa rotina me dá o tempo e o número da amostra, como faço para ver o dia em que o tempo ou amostra de tamanho 5 foi registrada. Ou seja, necessito mostrar o gráfico com o tempo e os dias do registro do tempo em amostras de tamanho 5.<br><br>No link abaixo tem um link para o arquivo que
 estou usando com 300 observações.<br>http://www.datafilehost.com/d/e38f36e0<br><br>[  ]'s.<br><br></div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></div></body></html>