<html>
  <head>
    <meta content="text/html; charset=windows-1252"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    Boa tarde, não sei se já lhe responderam.<br>
    Talvez o script abaixo lhe ajude:<br>
    <br>
    require(MASS)<br>
     melhora<-rep(c("ac","alg","nenh"),4)<br>
     sexo<-c(1,1,1,1,1,1,0,0,0,0,0,0)<br>
     trat<-c(1,1,1,0,0,0,1,1,1,0,0,0)<br>
     Freq<-c(16,5,6,6,7,19,5,2,7,1,0,10)<br>
     artrite<-cbind(melhora,sexo,trat)<br>
     artrite<-as.data.frame(artrite)<br>
     attach(artrite)<br>
     options(contrasts = c("contr.treatment", "contr.poly"))<br>
     ajust1 <- polr(melhora ~ sexo + trat + sexo*trat, weights =
    Freq, data=artrite)<br>
     ajust1<br>
     summary(ajust1)<br>
     ajust2 <- polr(melhora ~ sexo + trat, weights= Freq, data =
    artrite)<br>
     ajust2<br>
     summary(ajust2)<br>
     ajust2$fitted.values<br>
    <br>
    <br>
    Uma boa forma de procurar algo que deseja referente ao R é através
    do comando:<br>
    >RSiteSearch('Assunto')<br>
    <br>
    <br>
    <br>
    <div class="moz-cite-prefix">On 08-01-2015 17:17, ELIAS MENDES COSTA
      MENDES wrote:<br>
    </div>
    <blockquote
cite="mid:96424370.3924983.1420744639999.JavaMail.yahoo@jws100152.mail.ne1.yahoo.com"
      type="cite">
      <div style="color:#000; background-color:#fff;
        font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial,
        Lucida Grande, sans-serif;font-size:14px">
        <div id="yui_3_16_0_1_1420743095493_14555" dir="ltr"><span
            id="yui_3_16_0_1_1420743095493_14634">Boa tarde pessoal,
            Algum de vocês tem material sobre regressão logística
            múltipla? (De preferencia usando o R) </span></div>
        <div id="yui_3_16_0_1_1420743095493_14555" dir="ltr"><span><br>
          </span></div>
        <div id="yui_3_16_0_1_1420743095493_14555" dir="ltr"><span>Desde
            de já agradeço </span></div>
        <div id="yui_3_16_0_1_1420743095493_14616"> </div>
        <div id="yui_3_16_0_1_1420743095493_14616"><br>
        </div>
        <div id="yui_3_16_0_1_1420743095493_14616" dir="ltr">Att,</div>
        <div class="signature" id="yui_3_16_0_1_1420743095493_14614"><span
            style="font-style:italic;"
            id="yui_3_16_0_1_1420743095493_14613">Elias Mendes Costa<br>
            <br>
          </span></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>
  </body>
</html>