<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><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></body></html>