<div> </div>
<div>> Marcelo, acredito que isso pode te ajudar...<br />> <br /><br />Sim! Ajuda e muito, Caio!<br /><br />Testei aqui e funcionou!<br /><br />Vou fazer alguma modificação para rodar no banco todo. Como tenho 6 blocos,<br />haverá outras combinações. Assim, penso em rodar algo do tipo:<br /><br />x$COVA <- paste(x$Bloco, x$Clone, x$Esp, x$Arv, sep = ";")<br /><br />attach(x)<br /><br />CAPcalc <- tapply(CAP, COVA, CAP.sqrt)<br /><br />data.frame(CAPcalc)<br /> CAPcalc<br />1;A;3x3;1 12.50000<br />1;A;3x3;2 14.93352<br />1;A;3x3;3 19.00000<br />1;A;3x3;4 19.00000<br />1;A;3x3;5 9.00000<br />1;A;3x3;6 30.90712<br />1;A;3x3;7 8.00000<br /><br />write.table(CAPcalc, "CAPcalc.txt")<br /><br />Substituo o ";" por tabulação utilizando o Gedit ou Emacs.<br /><br />Valeu!<br /><br />Laia, ML<br /><br />Ai, eu utilizo o seguinte para separar a primeira coluna:<br /><br /><br /><br /><br />-- <br />Marcelo<br />_______________________________________________<br />R-br mailing list<br />R-br@listas.c3sl.ufpr.br<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 fornea cdigo mnimo reproduzvel.</div>