<div>Clodoaldo</div><div><br></div><div>O código abaixo , ler seus dados e para cada coluna, aplica a função "obs" a saída será uma tabela contendo o número de colunas do seu dado fornecido e cada coluna conterá 500 linhas correspondente as quinhentas amostragens realizadas pela função "sample".</div><div><br></div><div>Assim você pode indentificar cada vetor contendo os 500 dados amostrados através do index de coluna</div><div> por exemplo : resultado[,1]</div><div><br></div><div>Espero ter ajudado</div><div><br></div><div>A disposição</div><div><br></div>dados <- matrix(nrow=10,ncol=16,data=rnorm(160))<br><br>obs <- function(x){<br>    <br>        results <- c()<br>        for(i in 1:500){<br>            <br>            results[i] <- mean( sample(x,replace=TRUE))<br>            saida <- paste(results,i,sep="")<br>            <br>        }<br>    <br> return(saida)<br>}<br><br>resultado<-apply(dados,2,obs)<br><br><signature><div>=========================================<br>
Fernando Souza<br>
Zootecnista, DSc. Produção e Alimentação Animal<br>
Celular: (31)99796-8781 (Vivo)<br>
<a href="https://n1.nylas.com/link/982181c7e27b6ef6fdf684e5db1087a882a4023a059b93166c5b32c1a9842d8e/0?redirect=mailto%3Ae-mail%253Anandodesouza%40gmail.com&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">E-mail:nandodesouza@gmail.com</a><br>
Lattes: <a href="https://n1.nylas.com/link/982181c7e27b6ef6fdf684e5db1087a882a4023a059b93166c5b32c1a9842d8e/1?redirect=http%3A%2F%2Flattes.cnpq.br%2F6519538815038307&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br>
Blog: <a href="https://n1.nylas.com/link/982181c7e27b6ef6fdf684e5db1087a882a4023a059b93166c5b32c1a9842d8e/2?redirect=https%3A%2F%2Fproducaoanimalcomr.wordpress.com%2F&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>
==========================================<br></div><div><br></div>Sent from <a href="https://n1.nylas.com/link/982181c7e27b6ef6fdf684e5db1087a882a4023a059b93166c5b32c1a9842d8e/3?redirect=https%3A%2F%2Fnylas.com%3Fref%3Dn1&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy">Nylas Mail</a>, the best free email app for work<div><br></div></signature><img class="n1-open" width="0" height="0" style="border:0; width:0; height:0;" src="https://n1.nylas.com/open/982181c7e27b6ef6fdf684e5db1087a882a4023a059b93166c5b32c1a9842d8e?r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy">
          <div class="gmail_quote nylas-quote nylas-quote-id-687b0022ece167e283fab664c838acd85d8ac45e894d5b3acb1081eba3865306">
            <br>
            On Mai 17 2017, at 4:19 pm, Clodoaldo José Figueredo via R-br <r-br@listas.c3sl.ufpr.br> wrote:
            <br>
            <blockquote class="gmail_quote"
              style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
              <div dir="ltr"><div>Na rotina abaixo eu preciso gravar cada vetor results para os 16 valores de j. Preciso colocar um índice porque esses 16 resultados formarão uma nova matriz com 16 colunas e 500 linhas.<br /></div>Como indexar os vetores results no comando "for" e montar a nova matriz?<br /><div><div><br />for(j in 1:16){<br />y <- dados[,j]<br />qqnorm(y);qqline(y)<br />mean(y)<br />results <- c()<br />for(i in 1:500){ results[i] <- mean( sample(y,replace=T))}<br />results<br />qqnorm(results);qqline(results)<br />mean (results)  <br />}<br /><br /></div><div>Obrigado<br /><br /></div><div>Clodoaldo<br /><br /></div><div><div><div><div dir="ltr"><div><b>"Que força é esta, eu não sei; tudo o que sei é que existe, e está disponível apenas quando alguém está num estado em que sabe exatamente o que quer, e está totalmente determinado a não desistir até conseguir." </b></div>
<div><a href="http://www.pensador.info/frase/NTQwOTE1/&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">Alexander Graham Bell</a></div>
<div> </div>
<div>Prof. Clodoaldo José Figueredo Msc - SIAPE 1800348</div>
<div>Métodos Numéricos para Engenharia - Matemática Aplicada</div>
<div>Instituto Federal Catarinense - Campus Araquari<br />Rodovia BR 280 - km 27 - Cx. Postal 21<br />CEP 89245-000 - Araquari/SC<br />Fone: (47) 3803-7240</div>
<div> </div></div></div></div>
</div></div></div>
<pre class="nylas-plaintext">_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.</pre>
            </blockquote>
          </div>