<div dir="ltr">Olá Tiago!<div style>Tente substituir isso:</div><div style><br></div><div style><div>int.conf <- tapply(resp,tr,ic)</div><div>mat<-matrix(int.conf)</div><div>mat</div><div><br></div><div style>por isso:</div>
<div style><br></div><div style>int.conf <- sapply(tapply(resp,tr,ic), as.matrix)<br></div></div><div style><br></div><div style>Espero ter ajudado!</div><div style><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2013/2/6 Tiago Souza Marçal <span dir="ltr"><<a href="mailto:tiagosouzamarcal@hotmail.com" target="_blank">tiagosouzamarcal@hotmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">



<div><div dir="ltr">
<div> Boa noite pessoal, estou tentando criar uma matriz com os intervalos de confiança que eu calculei para os um conjunto de dados. No entanto, os valores calculados para o intervalo de confiança ficaram ocultos na matriz.</div>
<div><span style="font-size:10pt">     </span></div><div><br></div><div><div>ic<- function(x, sigma2, conf.level=0.95){ </div><div>    n <- length(x) </div><div>    xbarra <- mean(x) </div><div>    if (!missing(sigma2)){ </div>
<div>        z <- qnorm((1+conf.level)/2) </div><div>    }else{ </div><div>        sigma2 <- var(x) </div><div>        z <- qt((1+conf.level)/2, n-1) </div><div>    } </div><div>    return(mean(x)+c(-1, 1)*z*sqrt(sigma2)/sqrt(n)) </div>
<div>}</div><div><br></div><div>tr<-gl(3,4)</div><div>resp<-rnorm(12,30,5)</div><div>d<-data.frame(tr,resp)</div><div>int.conf<-tapply(resp,tr,ic)</div><div>mat<-matrix(int.conf)</div><div>mat</div><div><br>
</div><div># matriz obtida.</div><div><span style="font-size:10pt">          [,1]     </span></div></div><div>[1,] Numeric,2</div><div>[2,] Numeric,2</div><div>[3,] Numeric,2</div><div><br></div><div>Agradeço desde já pela ajuda.</div>
<div><br></div><div>Att.</div><span class="HOEnZb"><font color="#888888"><div><br></div><div>Tiago.</div>                                     </font></span></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><br clear="all"><div><br></div>-- <br>
Julimar Santos Pinto<br>Mestre em Ciências Sociais<br>PPGCS - PUC Minas<br><a href="http://lattes.cnpq.br/0055458488359934">http://lattes.cnpq.br/0055458488359934</a>
</div>