<div dir="ltr"><div>Segue uma possivel solução com o aggregate, mas ele faz exatamente a mesma coisa que o tapply, so mudam os argumentos.</div><div><br></div><div>> temp1<-aggregate(x=d1$acidezKOH, by=list(d1$Tipo,d1$Trat,d1$Tempo), FUN=mean)</div><div>> temp2<-aggregate(x=d1$acidezOLEIC, by=list(d1$Tipo,d1$Trat,d1$Tempo), FUN=mean)</div><div>> dmedia<-data.frame(temp1,temp2[,4])</div><div>> colnames(dmedia)</div><div>[1] "Group.1"    "Group.2"    "Group.3"    "x"          "temp2...4."</div><div>> colnames(dmedia)<-c("Tipo","Trat","Tempo","acidezKOH", "acidezOLEIC")</div><div>> head(dmedia)</div><div>  Tipo Trat Tempo acidezKOH acidezOLEIC</div><div>1  TI1  TR1     0  2.320000   1.1666667</div><div>2  TI2  TR1     0  0.230000   0.1100000</div><div>3  TI3  TR1     0  0.090000   0.0400000</div><div>4  TI1  TR2     0  3.533333   1.7733333</div><div>5  TI2  TR2     0  0.270000   0.1333333</div><div>6  TI3  TR2     0  0.140000   0.0700000</div><div>> class(dmedia)</div><div>[1] "data.frame"</div><div><br></div><div>Vai existir muitas formas de isso, alguma provavelmente mais rápidas, mas assim eu so calculei as médias guardando em dois objetos temporariors, depois eu coloquei tudo num dataframe e modifiquei os nomes das colunas para ficar bonitinho. Ja da para quebrar o galho.</div><div class="gmail_extra"><br clear="all"><div><br></div>-- <br><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div>
</div></div>