<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span>Verdade!! Valeu. Agora uma coisa que estou quebrando a cabeça é a seguinte. Porque que o boot gerado pela função boot está extremamente diferente do boot gerado na 'unha'?. Vejamos um CMR.</span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span><br></span></div><div><span><div>x <- c(0.75,2.55,1.40,0.80,2.60)</div><div>y <- c(0.8249,0.797,0.7762,0.7797,0.7483)</div><div><br></div><div>da <- data.frame(x,y)</div><div>corr(da)</div><div><br></div><div>mean(boot(da,corr,10000)$t)<br></div><div><br></div><div>#Esta função eu fiz para evitar NAs, já que algumas amostragens são todas iguais, gerando um desvio padrão zero.</div><div>sa <- function(x){</div><div> y <- sample(x,replace=T)</div><div>
if(y[1:1] == y[2:2] && y[1:1] == y[3:3] && y[1:1] == y[4:4] && y[1:1] == y[5:5]){</div><div> z <- sample(x,replace=T)}else{</div><div> y}</div><div>} </div><div><br></div><div>boot_da <- numeric(10000)</div><div>n <- 10000)</div><div>for(i in 1:n){</div><div> boot_da[[i]] <- corr(matrix(c(sa(da[,1]),sa(da[,2])),ncol=2))</div><div> } </div><div>boot_da</div><div><br></div><div>mean(boot_da) </div><div><br></div><div>Se alguém puder ajudar de novo, agradeço.</div><div><br></div><div>Abraços!</div><div><br></div><div>Allaman</div><div>(S,f,P)</div></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt;
"><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "> </div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; background-color: transparent; color: rgb(115, 115, 115); " align="center"><b>M.Sc Ivan Bezerra Allaman</b> <br>Zootecnista<br><font style="background-color:transparent;" face="comic sans ms" size="2"><font style="background-color:transparent;">Doutorando em Produção Animal/Aquicultura - UFLA</font> <br></font><font size="2"><i><strong></strong></i></font><font style="background-color:transparent;" face="comic sans ms" size="2">email e msn - ivanalaman@yahoo.com.br <br><font size="1">Tel: (35)3826-6608/9900-2924</font></font></div></div></body></html>