<html>
  <head>
    <meta content="text/html; charset=windows-1252"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    Genial Walmes!!<br>
    <br>
        Muito Obrigado,<br>
    <br>
    <pre class="moz-signature" cols="72">-- 
======================================================================
Alexandre dos Santos
Proteção Florestal 
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial 
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a> 
        <a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a> 
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>                   
======================================================================</pre>
    <br>
    <br>
    <div class="moz-cite-prefix">On 09/09/2014 20:06, walmes . wrote:<br>
    </div>
    <blockquote
cite="mid:CAFU=EkZR-FSbagpOb7vL+PNemF7EqG6CBz3QW3nS5+=C+CafPg@mail.gmail.com"
      type="cite">
      <div dir="ltr">
        <div class="gmail_default" style="font-family:trebuchet
          ms,sans-serif">Basta você aproveitar o que tem em grid0, que
          tem as colunas e linhas de blocos de árvores, combiná-los para
          fazer um fator. Confira no CMR.<br>
          <br>
          <span style="font-family:courier new,monospace">str(grid0)<br>
            unique(grid0$L)<br>
            unique(grid0$C)<br>
            <br>
            grid1$parc <- with(grid0, interaction(L, C))<br>
            nlevels(grid1$parc)<br>
            levels(grid1$parc)<br>
            <br>
            grid1$parc <- with(grid0,<br>
                               interaction(as.integer(as.factor(L)),<br>
                                           as.integer(as.factor(C)),<br>
                                           sep="-"))<br>
            nlevels(grid1$parc)<br>
            levels(grid1$parc)<br>
            <br>
            grid2 <- aggregate(cbind(x, y)~parc, data=grid1,
            FUN=mean)<br>
            str(grid2)<br>
            <br>
            plot(y~x, grid1, col=as.integer(grid1$parc))<br>
            with(grid2, text(x, y, labels=as.character(parc)))<br>
          </span><br>
          <span style="font-family:courier new,monospace">subset(grid1,
            parc=="1-1")</span><br>
          <br>
          À disposição.<br>
        </div>
        <div class="gmail_default" style="font-family:trebuchet
          ms,sans-serif">Walmes.<br>
        </div>
      </div>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
    </blockquote>
    <br>
    <pre class="moz-signature" cols="72">
</pre>
  </body>
</html>