<div dir="ltr"><div><div><div><div>Tarefa para vc: entender os detalhes do que acontece no snippet abaixo.<br></div><div><br>f = function(dat, i){<br>  cc = cor(dat[i,])<br>  c(t1=sum(cc[1, -1])/cc[2, 3], t2=sum(cc[3, -3])/cc[2, 1])<br>

}<br><br></div><div>set.seed(1)<br></div><div>dados = data.frame(x1=rnorm(100), x2=rnorm(100), x3=rnorm(100))<br></div><div><br></div>library(boot)<br></div>br = boot(dados, f, 10000)<br></div><a href="http://boot.ci">boot.ci</a>(br, index=1)<br>

</div><a href="http://boot.ci">boot.ci</a>(br, index=2)<br><div class="gmail_extra"><br><br><div class="gmail_quote">Em 13 de fevereiro de 2014 15:19, geovane barbosa <span dir="ltr"><<a href="mailto:geovanecb@yahoo.com.br" target="_blank">geovanecb@yahoo.com.br</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:10pt;font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif"><div>

<span><br></span></div><div></div><div>Olá pessoal boa tarde</div><div><br></div><div><br></div><div>Tenho a seguinte situação. </div><div><br></div><div>Possuo um conjunto de dados caracterizados por x1,x2,x3. e gostaria de realizar o bootstrap para calcular a correlação e efetuar intervalos de confiança bootsrap. A linha de pensamento é essa.</div>

<div><br></div><div>Suponhamos que </div><div><br></div><div>x1<-rnorm(100)</div><div>x2<-rnorm(100)</div><div>x3<-rnorm(100)</div><div><br></div><div>dados<-data.frame(x1,x2,x3)</div><div><br></div><div><br>
</div>
<div>rx1x2<-cor(x1,x2)</div><div>rx1x3<-cor(x1,x3)</div><div>rx2x3<-cor(x2,x3)</div><div><br></div><div>theta1<- sqrt[(rx1x2+rx1x3)/rx2x3]</div><div>theta2<- <span style="font-size:10pt">sqrt[(rx1x3+rx2x3)/rx2x1]</span></div>

<div><span style="font-size:10pt"><br></span></div><div>Gostaria de ter como resultados final os intervalos bootstrap para theta1, theta2. </div><div><br></div><div><br></div><div>obrigado </div></div></div><br>_______________________________________________<br>


R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>