<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><span><div>Bom dia senhores!</div><div><br></div><div>Tenho um experimento fatorial 14x4, com 12 variáveis, e gostaria de saber se tem como colocar de uma só vez em um único quadro a média e o desvio padrão dos tratamentos e de todas as variáveis. Fiz algo como:</div><div><br></div><div>medias <- apply(da[,-c(1:2,15)],2,function(x) tapply(x,da$Trat,mean,na.rm=TRUE))</div><div>desvios <- apply(da[,-c(1:2,15)],2,function(x) tapply(x,da$Trat,sd,na.rm=TRUE)) </div><div><br></div><div>descrit <- list()</div><div>for(i in 1:12){</div><div> descrit[[i]] <- cbind(medias[,i],desvios[,i])</div><div>} </div><div><br></div><div>Mais sai como
lista não sendo o ideal que procuro. </div><div><br></div><div>Desde já agradeço pela atenção! </div></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; " align="center"><font style="background-color:transparent;" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\begin{signature}</font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace,
sans-serif" size="2"><<>>=</font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Universidade Estadual de Santa Cruz</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align:
left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Ilhéus/BA - Brasil</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Fone: +55 73 3680-5076</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif"
size="2">@</font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\end{signature}</font></font></div></div></body></html>