Faça um dput(dados), copie e cole para que eu possa obter seus dados aqui<div><div><br></div><div>att</div><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/34135e4fcbd38e564e5eddeb7176c092b1d927d472a7c50cdb73fff638703914/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/34135e4fcbd38e564e5eddeb7176c092b1d927d472a7c50cdb73fff638703914/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/34135e4fcbd38e564e5eddeb7176c092b1d927d472a7c50cdb73fff638703914/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/34135e4fcbd38e564e5eddeb7176c092b1d927d472a7c50cdb73fff638703914/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></div><img class="n1-open" width="0" height="0" style="border:0; width:0; height:0;" src="https://n1.nylas.com/open/34135e4fcbd38e564e5eddeb7176c092b1d927d472a7c50cdb73fff638703914?r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy">
<div class="gmail_quote nylas-quote nylas-quote-id-3f72e8609c2cb7f4d22378d4422ebea746a0dbb44751f620747462bea80e30bf">
<br>
On Mai 18 2017, at 11:19 pm, sznelwar@uol.com.br wrote:
<br>
<blockquote class="gmail_quote"
style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div><span style="font-size: medium; color: #0000ff;">Tentei rodar, mas o meu resultado dá muito diferente, qual o motivo?</span></div>
<div> </div>
<div>> dados <- read.table("dados_boot.txt", h=T)</div>
<div>> dados</div>
<div> X4 X5 X15 X6 X11 X12 X13 X16 X17 X18 X19 X20 X25 X26 X27 X29</div>
<div>1 3 4 3 2 3 4 4 2 3 3 3 5 3 4 3 3</div>
<div>2 2 5 5 5 3 5 5 4 5 4 5 4 4 3 5 3</div>
<div>3 4 5 4 3 5 5 5 4 5 6 6 5 4 4 5 4</div>
<div>4 2 6 4 4 2 6 6 4 4 3 6 6 3 4 4 2</div>
<div>5 4 3 1 3 1 4 5 3 3 1 3 1 2 1 2 1</div>
<div>6 5 5 6 5 5 6 6 6 5 5 6 4 5 5 5 4</div>
<div>7 1 7 4 5 7 6 7 5 4 5 5 3 4 4 7 6</div>
<div>8 5 7 6 5 4 6 6 3 7 5 4 3 5 7 5 6</div>
<div>9 5 6 4 3 5 5 5 4 4 4 3 2 2 5 2 5</div>
<div>10 3 6 2 5 5 6 6 6 4 4 5 5 2 2 6 3</div>
<div>11 2 2 3 2 2 4 4 4 3 4 5 4 5 3 4 3</div>
<div>12 2 3 2 2 3 2 5 3 2 4 5 2 4 5 3 2</div>
<div>13 7 7 4 3 3 6 7 6 6 6 6 6 4 4 6 5</div>
<div>14 5 7 6 6 7 6 6 7 7 6 5 5 3 4 6 6</div>
<div>15 3 6 5 6 5 6 6 5 6 6 5 5 4 4 6 6</div>
<div>16 1 2 1 4 1 5 2 2 3 6 5 4 1 2 1 1</div>
<div>17 4 5 2 4 3 4 3 5 5 4 3 3 2 4 3 4</div>
<div>18 5 6 5 5 3 5 5 6 7 6 6 5 4 3 6 6</div>
<div>19 4 3 5 3 1 5 4 2 3 4 4 5 1 4 2 5</div>
<div>20 3 3 3 4 4 3 4 2 2 3 3 3 2 3 1 2</div>
<div>> mean(dados[,1])</div>
<div>[1] 3.5</div>
<div>> library(sem)</div>
<div>> library(boot)</div>
<div>> </div>
<div>> #Bootstrap (médias das replicações)</div>
<div>> </div>
<div>> </div>
<div>> obs <- function(x){</div>
<div>+ </div>
<div>+ results <- c()</div>
<div>+ for(i in 1:500){</div>
<div>+ </div>
<div>+ results[i] <- mean(sample(dados,replace=T))</div>
<div>+ </div>
<div>+ saida <- paste(results,i,sep="")</div>
<div>+ </div>
<div>+ }</div>
<div>+ </div>
<div>+ return(saida)</div>
<div>+ }</div>
<div>> </div>
<div>> resultado<-apply(dados,2,obs)</div>
<div>There were 50 or more warnings (use warnings() to see the first 50)</div>
<div>> </div>
<div>> resultado[,1]</div>
<div> [1] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [10] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [19] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [28] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [37] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [46] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [55] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [64] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [73] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [82] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div> [91] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[100] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[109] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[118] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[127] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[136] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[145] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[154] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[163] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[172] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[181] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[190] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[199] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[208] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[217] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[226] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[235] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[244] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[253] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[262] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[271] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[280] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[289] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[298] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[307] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[316] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[325] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[334] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[343] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[352] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[361] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[370] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[379] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[388] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[397] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[406] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[415] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[424] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[433] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[442] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[451] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[460] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[469] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[478] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[487] "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>[496] "NA500" "NA500" "NA500" "NA500" "NA500"</div>
<div>> </div>
<div> </div>
<div><br />Como eu falei,</div>
<div>
<div> </div>
<div>Basta retirar a variável "saída" da função "obs" que a saída será do tipo numeric e aí funcionará seu comando</div>
<div> </div>
<div>segue função obs , corrigida</div>
<div>
<div> </div>
<div>obs <- function(x){<br /><br /> results <- c()<br /> for(i in 1:500){<br /><br /> results[i] <- mean( sample(x,replace=TRUE))<br /> <br /><br /> }<br /><br /> return(results)<br />}<br /><br /><br />resultado <- apply(dados,2,obs)<br /><br />str(resultado)</div>
<br />
<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/a5a0f79f704e8c5d398c43ed1aa06c5eac19980ecdd6befd76ba7e1c8ac49b0b/0?redirect=mailto%3Ae-mail%253Anandodesouza%40gmail.com&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">E-mail:nandodesouza@gmail.com</a><br /> Lattes: <a href="https://n1.nylas.com/link/a5a0f79f704e8c5d398c43ed1aa06c5eac19980ecdd6befd76ba7e1c8ac49b0b/1?redirect=http%3A%2F%2Flattes.cnpq.br%2F6519538815038307&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br /> Blog: <a href="https://n1.nylas.com/link/a5a0f79f704e8c5d398c43ed1aa06c5eac19980ecdd6befd76ba7e1c8ac49b0b/2?redirect=https%3A%2F%2Fproducaoanimalcomr.wordpress.com%2F&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br /> ==========================================</div>
<div> </div>
Sent from <a href="https://n1.nylas.com/link/a5a0f79f704e8c5d398c43ed1aa06c5eac19980ecdd6befd76ba7e1c8ac49b0b/3?redirect=https%3A%2F%2Fnylas.com%3Fref%3Dn1&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">Nylas Mail</a>, the best free email app for work
<div> </div>
</div>
</div>
<div><img style="border: 0; width: 0; height: 0;" src="https://n1.nylas.com/open/a5a0f79f704e8c5d398c43ed1aa06c5eac19980ecdd6befd76ba7e1c8ac49b0b?r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" alt width="0" height="0" /></div>
<div><br /> On Mai 18 2017, at 9:44 am, Fernando Antonio de souza <nandodesouza@gmail.com> wrote: <br />
<blockquote style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">
<div dir="auto">
<div>Clodoaldo
<div dir="auto"> </div>
<div dir="auto">Estou sem acesso a meu computador aqui é por as não posso testar. Tente rodar a função obs se a variável saida. Acredito que ela está transformando a saída em carácter e por isso a saída.</div>
<div dir="auto"> </div>
<div dir="auto">Assim q acessar meu PC testo e lhe confirmo. </div>
<div dir="auto"> </div>
<div style="font-family: sans-serif;" dir="auto">obs <- function(x){<br /> <br /> results <- c()<br /> for(i in 1:500){<br /> </div>
<span style="font-family: sans-serif;"> results[i] <- mean(sample(dados,replace=T))</span>
<div style="font-family: sans-serif;" dir="auto"> <br /> }<br /> <br />return(results)<br />}</div>
<div><br />
<div>Em 18/05/2017 9:24 AM, "Clodoaldo José Figueredo" <<a href="../../../undefined//compose?to=clodoaldo.figueredo@ifc-araquari.edu.br&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">clodoaldo.figueredo@ifc-araquari.edu.br</a>> escreveu:<br />
<blockquote style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">
<div dir="ltr">
<div>
<div>
<div>
<div>
<div>
<div>
<div>Caro Fernando (e demais colegas)<br /><br /></div>
Gostaria de agradecer sua grande ajuda, mas preciso tirar mais outras dúvidas.</div>
Abaixo está o código completo e a matriz dados que é base para os cálculos.</div>
A saída que inseri é a coluna resultado [,1]<br /><br /></div>
Porque não consigo calcular a média dos valores?</div>
As saídas serão usadas como vetores (individualmente) em um outro procedimento para uso do pacote "sem" (Modelagem de equações estruturais).</div>
Como tira as aspas, ou não tem nada a ver?</div>
<div>Porque aparecem valores 4500 e 3500 no meio dos calculados? (Não tem lógica)</div>
<br />setwd("C:/Dados")<br />dados <- read.table("Dados_Boot_txt.txt", h=T)<br /><br />dados<br />
<pre id="m_795982940808604400gmail-rstudio_console_output" style="font-family: 'lucida console'; font-size: 10pt; outline: medium none; border-width: medium; border-style: none; border-color: currentcolor; word-break: break-all; margin: 0px; white-space: pre-wrap; line-height: 15px; color: #000000; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; text-indent: 0px; text-transform: none; word-spacing: 0px; background-color: #ffffff;"><span style="color: blue; white-space: pre-wrap;">> </span><span style="color: blue;">dados
</span> X4 X5 X15 X6 X11 X12 X13 X16 X17 X18 X19 X20 X25 X26 X27 X29
1 3 4 3 2 3 4 4 2 3 3 3 5 3 4 3 3
2 2 5 5 5 3 5 5 4 5 4 5 4 4 3 5 3
3 4 5 4 3 5 5 5 4 5 6 6 5 4 4 5 4
4 2 6 4 4 2 6 6 4 4 3 6 6 3 4 4 2
5 4 3 1 3 1 4 5 3 3 1 3 1 2 1 2 1
6 5 5 6 5 5 6 6 6 5 5 6 4 5 5 5 4
7 1 7 4 5 7 6 7 5 4 5 5 3 4 4 7 6
8 5 7 6 5 4 6 6 3 7 5 4 3 5 7 5 6
9 5 6 4 3 5 5 5 4 4 4 3 2 2 5 2 5
10 3 6 2 5 5 6 6 6 4 4 5 5 2 2 6 3
11 2 2 3 2 2 4 4 4 3 4 5 4 5 3 4 3
12 2 3 2 2 3 2 5 3 2 4 5 2 4 5 3 2
13 7 7 4 3 3 6 7 6 6 6 6 6 4 4 6 5
14 5 7 6 6 7 6 6 7 7 6 5 5 3 4 6 6
15 3 6 5 6 5 6 6 5 6 6 5 5 4 4 6 6
16 1 2 1 4 1 5 2 2 3 6 5 4 1 2 1 1
17 4 5 2 4 3 4 3 5 5 4 3 3 2 4 3 4
18 5 6 5 5 3 5 5 6 7 6 6 5 4 3 6 6
19 4 3 5 3 1 5 4 2 3 4 4 5 1 4 2 5
20 3 3 3 4 4 3 4 2 2 3 3 3 2 3 1 2</pre>
<br />mean(dados[,1])<br />
<pre id="m_795982940808604400gmail-rstudio_console_output" style="font-family: 'lucida console'; font-size: 10pt; outline: medium none; border-width: medium; border-style: none; border-color: currentcolor; word-break: break-all; margin: 0px; white-space: pre-wrap; line-height: 15px; color: #000000; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; text-indent: 0px; text-transform: none; word-spacing: 0px; background-color: #ffffff;"><span style="color: blue; white-space: pre-wrap;">> </span><span style="color: blue;">mean(dados[,1])
</span>[1] 3.5</pre>
<br />library(sem)<br />library(boot)<br /><br />#Bootstrap (médias das replicações)
<div><br /><br />obs <- function(x){<br /> <br /> results <- c()<br /> for(i in 1:500){<br /> </div>
results[i] <- mean(sample(dados,replace=T))
<div><br /> saida <- paste(results,i,sep="")<br /> <br /> }<br /> <br />return(saida)<br />}<br /><br />resultado<-apply(dados,2,obs)<br /><br /></div>
resultado[,1]<br />
<pre id="m_795982940808604400gmail-rstudio_console_output" style="font-family: 'lucida console'; font-size: 10pt; outline: medium none; border-width: medium; border-style: none; border-color: currentcolor; word-break: break-all; margin: 0px; white-space: pre-wrap; line-height: 15px; color: #000000; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; text-indent: 0px; text-transform: none; word-spacing: 0px; background-color: #ffffff;"><span style="color: blue; white-space: pre-wrap;">> </span><span style="color: blue;">resultado[,1]
</span> [1] "3.75500" "4.1500" "4.05500" "3.5500" "3.8500" "4.1500" "3.45500" "4.75500"
[9] "4.25500" "3.45500" "3.6500" "3.85500" "3.9500" "4.05500" "3.6500" "3.75500"
[17] "4.2500" "4.4500" "3.65500" "4.2500" "4500" "4.15500" "5.05500" "3.75500"
[25] "3.8500" "4.45500" "4.25500" "3.65500" "3.65500" "4.05500" "4.05500" "3.3500"
[33] "3.4500" "4.15500" "3.15500" "3.8500" "3.7500" "4.3500" "4500" "3.15500"
[41] "4.55500" "3.95500" "4.1500" "4.05500" "4.2500" "3.6500" "3.95500" "4.35500"
[49] "3.65500" "4.75500" "3.7500" "3.65500" "3.6500" "4.85500" "3.8500" "3.05500"
[57] "3.85500" "3.8500" "3.8500" "3.35500" "3.7500" "4.25500" "4.25500" "3.8500"
[65] "3.95500" "3.25500" "3.9500" "3.75500" "3.7500" "4.45500" "3.65500" "3.4500"
[73] "4500" "4500" "3.55500" "3.9500" "3.75500" "4.3500" "3.3500" "4.25500"
[81] "4.1500" "4.2500" "4.2500" "4.2500" "3.95500" "4.15500" "4.35500" "4.1500"
[89] "4.1500" "4.05500" "3.9500" "3.65500" "3.4500" "3.65500" "4.15500" "3.35500"
[97] "3.55500" "3.75500" "3.8500" "3.8500" "4.25500" "4.15500" "4500" "3.95500"
[105] "3.95500" "3.65500" "4.4500" "3.6500" "3.75500" "3.55500" "3.9500" "4.3500"
[113] "3.9500" "3.55500" "3.35500" "4.1500" "3.65500" "3.75500" "3.6500" "3.05500"
[121] "4500" "3.9500" "4.05500" "3.65500" "4.15500" "4.25500" "4500" "4.05500"
[129] "4.7500" "3.1500" "3.2500" "3.85500" "3.5500" "3.5500" "4.4500" "3.45500"
[137] "3.7500" "3.65500" "4.1500" "4.05500" "3.35500" "4.1500" "3.9500" "3.1500"
[145] "4.2500" "4.15500" "4.45500" "3.95500" "3.25500" "3.9500" "3.9500" "3.75500"
[153] "3.65500" "3.6500" "3.5500" "3.65500" "3.9500" "4.05500" "4.05500" "3.85500"
[161] "4.05500" "3.45500" "3.05500" "3.45500" "4.3500" "4.6500" "3.8500" "4.35500"
[169] "4.05500" "4.1500" "4.15500" "4.8500" "3.6500" "3.05500" "4500" "3.95500"
[177] "3.6500" "4.4500" "4.25500" "4.35500" "3.6500" "4.2500" "3.9500" "4.55500"
[185] "3.9500" "4.3500" "4.15500" "3.35500" "3.6500" "3.9500" "3.85500" "3.45500"
[193] "3.65500" "3.45500" "3.7500" "3.45500" "4.3500" "3.7500" "3.4500" "3.55500"
[201] "3.75500" "3.85500" "3.8500" "4.65500" "3.8500" "3.6500" "3.7500" "3.45500"
[209] "3.65500" "4.2500" "3.5500" "3.75500" "4.4500" "3.8500" "3.45500" "3.5500"
[217] "4.5500" "4.1500" "3.85500" "3.6500" "3.15500" "4.55500" "3.5500" "3.65500"
[225] "3.8500" "4500" "4.15500" "3.65500" "3.35500" "3.5500" "3.45500" "3.65500"
[233] "3.5500" "4.1500" "3.5500" "4.15500" "4.15500" "4.15500" "4.2500" "4.05500"
[241] "4.15500" "3.8500" "3.85500" "4.05500" "4.1500" "3.75500" "3.75500" "3.9500"
[249] "3.25500" "4.15500" "3.85500" "4.25500" "4500" "3.9500" "4.15500" "4500"
[257] "3.9500" "3.95500" "4500" "4.1500" "3.8500" "4.5500" "4.4500" "3.9500"
[265] "3.95500" "4.4500" "3.65500" "3.5500" "4500" "3.8500" "3.4500" "4.2500"
[273] "3.05500" "3.6500" "3.6500" "4.2500" "3.4500" "3.55500" "4.25500" "3.95500"
[281] "3.4500" "3.9500" "4500" "4.05500" "3.75500" "3.85500" "3.95500" "4.3500"
[289] "3.1500" "4.35500" "3.75500" "3.25500" "3.95500" "3.65500" "3.75500" "4.45500"
[297] "4.2500" "4.2500" "3.8500" "4500" "3.3500" "4.3500" "3.6500" "4.25500"
[305] "3.45500" "3.65500" "5.05500" "4.1500" "3.85500" "4.1500" "3.8500" "3.65500"
[313] "3.55500" "4.05500" "3.45500" "3.8500" "4.15500" "3.3500" "3.85500" "4.45500"
[321] "4.05500" "3.8500" "3.6500" "4.65500" "3.95500" "3.55500" "3.7500" "3.95500"
[329] "3.8500" "3.7500" "3.55500" "3.95500" "3.55500" "3.15500" "4500" "3.35500"
[337] "4500" "4.2500" "3.85500" "3.6500" "3.8500" "3500" "4.2500" "3.55500"
[345] "3.8500" "4.25500" "3.5500" "3.85500" "3.8500" "3.25500" "3.65500" "4.4500"
[353] "4500" "3.6500" "4.4500" "3.3500" "4.45500" "4.25500" "4.05500" "3.45500"
[361] "4.3500" "3.85500" "4.15500" "3.65500" "3.55500" "4.3500" "3.9500" "4.4500"
[369] "4.15500" "4.15500" "3.85500" "4.25500" "3.7500" "3.8500" "4.2500" "3.35500"
[377] "3.2500" "3.8500" "4.2500" "3.95500" "3.85500" "3.25500" "4.35500" "3.1500"
[385] "3.7500" "3.35500" "4.1500" "4.15500" "3.85500" "4.55500" "3.65500" "3.75500"
[393] "3.8500" "3.25500" "3.2500" "3.5500" "3.75500" "3.45500" "4.65500" "4.15500"
[401] "3.25500" "4.1500" "4.3500" "4.2500" "3.4500" "3.9500" "4.6500" "4.05500"
[409] "4.35500" "3.55500" "3.8500" "3.8500" "3.55500" "3.8500" "3.7500" "4.05500"
[417] "3.65500" "3.55500" "3.5500" "4.15500" "3.75500" "3.6500" "3.85500" "3.3500"
[425] "3.85500" "2.95500" "3.85500" "4.45500" "3.85500" "3.45500" "3.65500" "4.1500"
[433] "3.6500" "3.9500" "3.8500" "3.15500" "3.65500" "3.4500" "3.5500" "4.25500"
[441] "4.2500" "4500" "3.6500" "3.6500" "3.25500" "4.25500" "3.95500" "3.1500"
[449] "4.2500" "3.15500" "3.65500" "4500" "3.4500" "4.55500" "4.1500" "4.5500"
[457] "3.75500" "3.85500" "4500" "3.85500" "4.55500" "3.6500" "4.1500" "4.3500"
[465] "4.05500" "3.7500" "3.95500" "3.55500" "3.1500" "3.95500" "3.85500" "3.3500"
[473] "3.95500" "4.25500" "3.95500" "4.1500" "4.05500" "4.25500" "3.75500" "4.3500"
[481] "4.3500" "4.3500" "4.7500" "4.45500" "2.9500" "3.5500" "3.6500" "3.55500"
[489] "4.4500" "4500" "3.4500" "3.5500" "3.45500" "3.35500" "4.65500" "4.3500"
[497] "3.8500" "4.3500" "3.95500" "3.65500"</pre>
<br />mean(resultado[,1])<br />
<pre id="m_795982940808604400gmail-rstudio_console_output" style="font-family: 'lucida console'; font-size: 10pt; outline: medium none; border-width: medium; border-style: none; border-color: currentcolor; word-break: break-all; margin: 0px; white-space: pre-wrap; line-height: 15px; color: #000000; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; text-indent: 0px; text-transform: none; word-spacing: 0px; background-color: #ffffff;"><span style="color: blue; white-space: pre-wrap;">> </span><span style="color: blue;">mean(resultado[,1])
</span>[1] NA
<span style="color: #c5060b;">Warning message:
</span><span style="color: #c5060b;">In mean.default(resultado[, 1]) :</span><span style="color: #c5060b;"> argumento não é numérico nem lógico: retornando NA<br /></span><br />Muito obrigado </pre>
<div>
<div><br />
<div>
<div>
<div dir="ltr">
<div><strong>"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." </strong></div>
<div><a href="http://www.pensador.info/frase/NTQwOTE1/&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&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>Em 17 de maio de 2017 17:42, Fernando Antonio de souza <span dir="ltr"><<a href="../../../undefined//compose?to=nandodesouza@gmail.com&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">nandodesouza@gmail.com</a>></span> escreveu:</div>
<blockquote style="margin: 0px 0px 0px 0.8ex; border-left: 1px solid #cccccc; padding-left: 1ex;">
<div>
<div>Clodoaldo</div>
<div> </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> </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> </div>
<div>Espero ter ajudado</div>
<div> </div>
<div>A disposição</div>
<div> </div>
dados <- matrix(nrow=10,ncol=16,data=rnorm(160))<br /><br />obs <- function(x){<span><br /> <br /> results <- c()<br /> for(i in 1:500){<br /> <br /></span> 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 />
<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=Y2xvZG9hbGRvLmZpZ3VlcmVkb0BpZmMtYXJhcXVhcmkuZWR1LmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&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=Y2xvZG9hbGRvLmZpZ3VlcmVkb0BpZmMtYXJhcXVhcmkuZWR1LmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&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=Y2xvZG9hbGRvLmZpZ3VlcmVkb0BpZmMtYXJhcXVhcmkuZWR1LmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br /> ==========================================</div>
<div> </div>
Sent from <a href="https://n1.nylas.com/link/982181c7e27b6ef6fdf684e5db1087a882a4023a059b93166c5b32c1a9842d8e/3?redirect=https%3A%2F%2Fnylas.com%3Fref%3Dn1&r=Y2xvZG9hbGRvLmZpZ3VlcmVkb0BpZmMtYXJhcXVhcmkuZWR1LmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">Nylas Mail</a>, the best free email app for work
<div> </div>
</div>
<img style="border-width: 0px; border-style: none; border-color: currentcolor; width: 0px; height: 0px;" src="https://n1.nylas.com/open/982181c7e27b6ef6fdf684e5db1087a882a4023a059b93166c5b32c1a9842d8e?r=Y2xvZG9hbGRvLmZpZ3VlcmVkb0BpZmMtYXJhcXVhcmkuZWR1LmJy" alt width="0" height="0" />
<div>
<div>
<div>
<div><br /> On Mai 17 2017, at 4:19 pm, Clodoaldo José Figueredo via R-br <<a href="../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote: </div>
</div>
<blockquote style="margin: 0px 0px 0px 0.8ex; border-left: 1px solid #cccccc; padding-left: 1ex;">
<div>
<div>
<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.</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><strong>"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." </strong></div>
<div><a href="http://www.pensador.info/frase/NTQwOTE1/&r=Y2xvZG9hbGRvLmZpZ3VlcmVkb0BpZmMtYXJhcXVhcmkuZWR1LmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&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>
</div>
</div>
<pre>_______________________________________________
R-br mailing list
<a href="../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</pre>
</blockquote>
</div>
</div>
</blockquote>
</div>
</div>
</div>
</blockquote>
</div>
</div>
</div>
</div>
</blockquote>
</div>
<div>_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<br /><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br />Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia&r=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div>
</blockquote>
</div>