<font face="trebuchet ms,sans-serif">Opções adicionais consiste em usar funções de pacotes para manipulação de dados, veja<br><br><span style="font-family: courier new,monospace;">da <- expand.grid(A=1:14, B=1:4, r=1:4)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">da <- cbind(da, as.data.frame(matrix(rnorm(nrow(da)*3), nrow(da))))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">str(da)</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">require(reshape)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">require(plyr)</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">ddply(da[,-c(1,2)], .(da$A, da$B), mean)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">ddply(da[,-c(1,2)], .(da$A, da$B), sd)</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">db <- melt(da, id=1:3)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">str(db)</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">ddply(db[,-3], .(A, B, variable),</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">      summarise, m=mean(value), sd=sd(value))</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">library(doBy)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">summaryBy(V1+V2+V3~A+B, data=da,</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">          FUN=function(x){ c(mean(x), sd(x)) })</span><br style="font-family: courier new,monospace;"><br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>