<html>
  <head>
    <meta content="text/html; charset=utf-8" http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <p>Fernando, agradeço a ajuda, mas infelizmente já tentei com table,
      xtabs, ftable, e clogit e não consegui o que preciso. Os
      resultados não são contagens de pares. Tenho certeza de que estou
      fazendo algo errado.<br>
    </p>
    <p>Devido à minha dificuldade, recorri à lista. <br>
    </p>
    <p>Não postei as tentativas erradas que fiz, para deixar o script
      mais limpo.</p>
    <p>Abraço,<br>
    </p>
    <p>Maurício Cardeal</p>
    <p>UFBA<br>
    </p>
    <br>
    <div class="moz-cite-prefix">Em 07/04/2017 15:17, FHRB Toledo
      escreveu:<br>
    </div>
    <blockquote
cite="mid:CAN55XP4NmaBdBrB=kYXJ1HPAUZQP5HR_gxBsPk7uBBg52Q4qvA@mail.gmail.com"
      type="cite">
      <div dir="ltr">help(xtabs)<br>
      </div>
      <div class="gmail_extra"><br>
        <div class="gmail_quote">2017-04-07 12:59 GMT-05:00 Mauricio
          Cardeal via R-br <span dir="ltr"><<a
              moz-do-not-send="true"
              href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br>
          <blockquote class="gmail_quote" style="margin:0 0 0
            .8ex;border-left:1px #ccc solid;padding-left:1ex">Boa tarde!<br>
            <br>
            Por favor, como faço para construir uma tabela como a do
            modelo do final do script,<br>
            <br>
            onde o conteúdo das 4 caselas são contagens do número de
            pares que combinam<br>
            <br>
            melhora e não melhora de 2 tratamentos aplicados
            simultaneamente no mesmo<br>
            <br>
            individuo (perna direita e perna esquerda), por exemplo ?<br>
            <br>
            # CMR:<br>
            <br>
            par <- c(1,1,2,2,3,3,4,4,5,5,6,6,7,7)<wbr>  # refere-se
            ao número do individuo<br>
            trata <-  c(1,0,1,0,1,0,1,0,1,0,1,0,1,0) # tratamento 1
            (A) ou 0 (B)<br>
            melhora <-  c(1,0,1,0,1,0,0,1,0,1,0,0,1,1) # resultado do
            tratamento 1 (melhora) 0 (não melhora)<br>
            tratac <- factor(trata)<br>
            levels(tratac)<-list("A"=1,"B"<wbr>=0 )<br>
            melhorac <- factor(melhora)<br>
            levels(melhorac)<-list("+"=1,"<wbr>-"=0)<br>
            <br>
            data.frame(par,tratac,melhorac<wbr>)<br>
            <br>
               par tratac melhorac<br>
            1    1      A        +<br>
            2    1      B        -<br>
            3    2      A        +<br>
            4    2      B        -<br>
            5    3      A        +<br>
            6    3      B        -<br>
            7    4      A        -<br>
            8    4      B        +<br>
            9    5      A        -<br>
            10   5      B        +<br>
            11   6      A        -<br>
            12   6      B        -<br>
            13   7      A        +<br>
            14   7      B        +<br>
            <br>
            # COMO FAÇO PARA GERAR ESSA TABELA A PARTIR DOS DADOS ACIMA?<br>
            <br>
            #                      tratamento B<br>
            #                      melhora melhora<br>
            #                         +       -<br>
            #tratamento A melhora +   1       3<br>
            #             melhora -   2       1<br>
            <br>
            Obrigado,<br>
            <br>
            Maurício Cardeal<br>
            <br>
            UFBA<br>
            <br>
            <br>
            ______________________________<wbr>_________________<br>
            R-br mailing list<br>
            <a moz-do-not-send="true"
              href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
            <a moz-do-not-send="true"
              href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
              rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
            Leia o guia de postagem (<a moz-do-not-send="true"
              href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer"
              target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>)
            e fornea cdigo mnimo reproduzvel.</blockquote>
        </div>
        <br>
      </div>
    </blockquote>
    <br>
  </body>
</html>