<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman,new york,times,serif;font-size:12pt"><br><div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem encaminhada ----<br><div style="padding-left: 5px; margin: 5px 0px 5px 5px; border-left: 2px solid rgb(16, 16, 255); font-family: times new roman,new york,times,serif; font-size: 12pt;"><font size="2" face="Tahoma"><b><span style="font-weight: bold;">De:</span></b> Paulo Justiniano Ribeiro Jr <paulojus@c3sl.ufpr.br><br><b><span style="font-weight: bold;">Para:</span></b> R_STAT@yahoogrupos.com.br<br><b><span style="font-weight: bold;">Enviadas:</span></b> Sexta-feira, 31 de Outubro de 2008 8:21:23<br><b><span style="font-weight: bold;">Assunto:</span></b> Re: [R_STAT] Reamostragem<br></font><br>
<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id="ygrp-mlmsg" style="width: 655px;">
<div id="ygrp-msg" style="width: 470px; margin: 0pt; padding: 0pt 25px 0pt 0pt; float: left;">
<!--~-|**|PrettyHtmlEndT|**|-~-->
<div id="ygrp-text">
<p>Andre<br>
<br>
1. obtenha as reamostras:<br>
<br>
reamostras <- array(sample( e, length(e)*1000, rep=T),<br>
dim=c(length( e)/2,2,1000) )<br>
<br>
2. faca os testes T<br>
nas 1000 reamostras<br>
TT <- apply(reamostras, 3, function(x) t.test(x[,1] , x[,2]))<br>
<br>
3. Veja o resultado em uma das amostras:<br>
TT[[1]]<br>
<br>
4. extraia uma quantidade que quiser como por exemplo<br>
os p-valores<br>
<br>
pvals <- sapply(TT, function(x) x$p.value)<br>
<br>
OBS: note que estao sendo usadas as opcoes default do teste t<br>
para comparacao de duas amostras dadas em t.test.<br>
(bilateral, nao pareado, var. diferentes, etc)<br>
Se quiser mudar acrescente argumentos desejados na chamada do apply():<br>
TT <- apply(reamostras, 3, function(x) t.test(x[,1] , x[,2]),<br>
var.equal=TRUE)<br>
<br>
Paulo Justiniano Ribeiro Jr<br>
LEG (Laboratorio de Estatistica e Geoinformacao)<br>
Universidade Federal do Parana<br>
Caixa Postal 19.081<br>
CEP 81.531-990<br>
Curitiba, PR - Brasil<br>
Tel: (+55) 41 3361 3573<br>
Fax: (+55) 41 3361 3141<br>
e-mail: paulojus AT ufpr br<br>
<a rel="nofollow" target="_blank" href="http://www.leg.ufpr.br/%7Epaulojus">http://www.leg. ufpr.br/~ paulojus</a><br>
<br>
On Fri, 31 Oct 2008, André Oliveira Souza wrote:<br>
<br>
> ola; queria fazer uma amostragem e tirar as informações.<br>
><br>
> Olha tenho duas mostras.<br>
><br>
> a<-c(1,2,4,5, 3,4,5,6,6, 7,2)<br>
> b<-c(5,3,4,5, 3,4,5,3,4, 3,5)<br>
><br>
> Aplico o teste t e tenho um P-valor Po.<br>
><br>
> Eu gostaria de juntar estes dois vetores num mesmo e fazer 1000<br>
> reamostragem neste vetor de tamanho do vetor a e com reposição.<br>
><br>
> e<- c(5,3,4,5,3, 4,5,3,4,3, 5,1,2,4,5, 3,4,5,6,6, 7,2)<br>
><br>
> Depois eu queria ver aplicar o teste t(nas amostras) e ver como se<br>
> comporta estes p valores.<br>
><br>
> att<br>
> obrigado.<br>
><br>
><br>
</p>
</div>
<!--~-|**|PrettyHtmlStart|**|-~-->
<span style="color: white;">__._,_.___</span>
<div id="ygrp-actbar">
<span class="left">
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/message/533;_ylc=X3oDMTM0NTllNzBsBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NjY2BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTIyNTQ0ODUwMQR0cGNJZAM1MzM-">
Mensagens neste tópico </a> (<span class="bld">4</span>)
</span>
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJxdjU5ZXQzBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRtc2dJZAM0NjY2BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTIyNTQ0ODUwMQ--?act=reply&messageNum=4666">
<span class="bld">
Responder </span> (através da web)
</a> |
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/post;_ylc=X3oDMTJmN2syNjczBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzEyMjU0NDg1MDE-" class="bld">
Adicionar um novo tópico </a>
</div>
<div id="ygrp-vitnav">
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/messages;_ylc=X3oDMTJmdWxyZWlvBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNtc2dzBHN0aW1lAzEyMjU0NDg1MDE-">Mensagens</a>
| <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/files;_ylc=X3oDMTJncHExbjQ0BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNmaWxlcwRzdGltZQMxMjI1NDQ4NTAx">Arquivos</a>
| <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/photos;_ylc=X3oDMTJmM2w0Z2YwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwaG90BHN0aW1lAzEyMjU0NDg1MDE-">Fotos</a>
| <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/links;_ylc=X3oDMTJndGU3anExBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNsaW5rcwRzdGltZQMxMjI1NDQ4NTAx">Links</a>
| <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/database;_ylc=X3oDMTJkOGgwaDNlBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNkYgRzdGltZQMxMjI1NDQ4NTAx">Banco de dados</a>
| <a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/polls;_ylc=X3oDMTJnMmxyMWViBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNwb2xscwRzdGltZQMxMjI1NDQ4NTAx">Enquetes</a>
</div>
<div id="ygrp-grft">
</div>
<div id="ygrp-ft">
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/;_ylc=X3oDMTJlOGc5aTMwBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTIyNTQ0ODUwMQ--">
<img src="http://us.i1.yimg.com/us.yimg.com/i/br/groups/groups-brazil_1.gif" alt="Yahoo! Grupos" height="19" width="108" border="0"></a> <br>
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/join;_ylc=X3oDMTJnZ2IxMThjBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNzdG5ncwRzdGltZQMxMjI1NDQ4NTAx">Alterar configurações via web</a> (Requer Yahoo! ID) <br>
Alterar configurações via e-mail: <a rel="nofollow" ymailto="mailto:R_STAT-digest@yahoogrupos.com.br?subject= Recebimento de e-mail: Lista de mensagens" target="_blank" href="mailto:R_STAT-digest@yahoogrupos.com.br?subject=%20Recebimento%20de%20e-mail:%20Lista%20de%20mensagens">Alterar recebimento para lista diária de mensagens</a> | <a rel="nofollow" ymailto="mailto:R_STAT-traditional@yahoogrupos.com.br?subject=Alterar formato de distribuição: Tradicional" target="_blank" href="mailto:R_STAT-traditional@yahoogrupos.com.br?subject=Alterar%20formato%20de%20distribui%C3%A7%C3%A3o:%20Tradicional">Alterar formato para o tradicional</a> <br>
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJlczdhM2FzBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDZnRyBHNsawNocGYEc3RpbWUDMTIyNTQ0ODUwMQ--">
Visite seu Grupo
</a> |
<a rel="nofollow" target="_blank" href="http://br.yahoo.com/info/utos.html">
Termos de uso do Yahoo! Grupos </a> |
<a rel="nofollow" ymailto="mailto:R_STAT-unsubscribe@yahoogrupos.com.br?subject=" target="_blank" href="mailto:R_STAT-unsubscribe@yahoogrupos.com.br?subject=">
Sair do grupo </a>
</div>
</div>
<div id="ygrp-sponsor" style="width: 160px; float: right; clear: none; margin: 0pt 0pt 25px; background: none repeat scroll 0% 0% white;">
<div id="ygrp-reco">
</div>
<div id="ygrp-vital">
<div id="vithd">Atividade nos últimos dias</div>
<ul style="list-style-type: none; padding: 0pt; margin: 2px 0pt;">
<li style="clear: both;">
<div class="ct" style="float: right;"><span style="display: none;"> </span>10</div>
<div class="cat"><a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT/members;_ylc=X3oDMTJnOHExMjY1BF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxMjI1NDQ4NTAx">Novos usuários</a></div>
</li>
</ul>
<a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/group/R_STAT;_ylc=X3oDMTJmZzk3NHJpBF9TAzk3NDkwNDM3BGdycElkAzExOTIzMjc1BGdycHNwSWQDMjEzNzExMTYwNQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzEyMjU0NDg1MDE-">
Visite seu Grupo </a>
</div>
<div id="nc">
<div class="ad">
<div id="hd1">Yahoo! Mail</div>
<p><a rel="nofollow" target="_blank" href="http://us.lrd.yahoo.com/_ylc=X3oDMTJtaXE4OHRxBF9TAzk3NDkwNDM3BF9wAzEEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDbWFpbARzdGltZQMxMjI1NDQ4NTAx;_ylg=1/SIG=10ujd6ds6/**http%3A//mail.yahoo.com.br/">Conecte-se ao mundo</a></p>
<p>Proteção anti-spam</p>
<p>Muito mais espaço</p>
</div>
<div class="ad">
<div id="hd1">Yahoo! Barra</div>
<p><a rel="nofollow" target="_blank" href="http://us.lrd.yahoo.com/_ylc=X3oDMTJwZTAyNnFpBF9TAzk3NDkwNDM3BF9wAzIEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDdG9vbGJhcgRzdGltZQMxMjI1NDQ4NTAx;_ylg=1/SIG=111ngvtas/**http%3A//br.toolbar.yahoo.com/">Instale grátis</a></p>
<p>Buscar sites na web</p>
<p>Checar seus e-mails .</p>
</div>
<div class="ad">
<div id="hd1">Yahoo! Grupos</div>
<p><a rel="nofollow" target="_blank" href="http://br.groups.yahoo.com/;_ylc=X3oDMTJwZmZ1b3EyBF9TAzk3NDkwNDM3BF9wAzMEZ3JwSWQDMTE5MjMyNzUEZ3Jwc3BJZAMyMTM3MTExNjA1BHNlYwNuY21vZARzbGsDZ3JvdXBzMgRzdGltZQMxMjI1NDQ4NTAx">Crie seu próprio grupo</a></p>
<p>A melhor forma de comunicação</p>
<p></p>
</div>
</div>
</div>
<div style="clear: both; color: rgb(255, 255, 255); font-size: 1px;">.</div>
</div> <img src="http://geo.yahoo.com/serv?s=97490437/grpId=11923275/grpspId=2137111605/msgId=4666/stime=1225448501/nc1=1/nc2=2/nc3=3" height="1" width="1"> <br>
<span style="color: white;">__,_._,___</span>
<!--~-|**|PrettyHtmlEnd|**|-~-->
<!--~-|**|PrettyHtmlStart|**|-~-->
<style type="text/css">
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
</style>
<style type="text/css">
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
</style>
<style type="text/css">
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;}
#reco-grpname{
font-weight:bold;margin-top:10px;}
#reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
</style>
<!--~-|**|PrettyHtmlEnd|**|-~-->
</div></div></div>
</div><br>
</body></html>