<div>Felipe,</div><div><br></div>Para CMR, consulte: <a href="https://gist.github.com/1088208">https://gist.github.com/1088208</a><div><br></div><div>att,</div><div>FH<br><br><div class="gmail_quote">2012/9/13 Felipe Buchbinder <span dir="ltr"><<a href="mailto:felbuch@gmail.com" target="_blank">felbuch@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">O k foi definido no início do código, fora da função, como k = 5.<div><br></div><div>Desculpe a ignorância, mas o que é um CMR? Como eu posso fazer um para enviar à lista?</div>
<div><br></div><div>Obrigado pela disposição,</div>
<div><br>Felipe<div><div class="h5"><br><br><div class="gmail_quote">2012/9/13 Leonard de Assis <span dir="ltr"><<a href="mailto:assis.leonard@gmail.com" target="_blank">assis.leonard@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


  
    
  
  <div bgcolor="#FFFFFF" text="#000000">
    <div>Onde foi definido o k?<br>
      <pre cols="72">[]s
Leonard de Assis
assis <dot> leonard <at> gmail <dot> com
</pre>
      Em 13/09/2012 12:56, Felipe Buchbinder escreveu:<br>
    </div>
    <blockquote type="cite"><div><div>Prezados professores,
      <div><br>
      </div>
      <div>Estou com um problema em uma função no R.</div>
      <div>A função é a seguinte:</div>
      <div><br>
      </div>
      <blockquote style="margin:0 0 0 40px;border:none;padding:0px">
        <blockquote style="margin:0 0 0 40px;border:none;padding:0px">
          <blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">resp
            <- function(subject,item,trait)<br>
            {<br>
              <br>
              p.vec = NULL<br>
              <br>
              for(category in 1:k)  # k = 5<br>
              {<br>
                p = ogive ( theta[subject,trait] , a[item] ,
            b[item,category] , D )    # aqui é uma logit (D=1) ou probit
            (D=1.7)<br>
                p.vec = c(p.vec,p)<br>
              }<br>
              <br>
              #Generates a random number<br>
              <br>
              seed<-runif(1,0.2,0.8)<br>
              <br>
              #Selects an answer<br>
              <br>
              temp = which ( p.vec>seed ) <br>
              if( length (temp) > 0 ) { resp = max (temp) } else {
            resp = 1 }<br>
              resp<br>
            }</blockquote>
        </blockquote>
      </blockquote>
      <div><br>
      </div>
      <div><br>
      </div>
      <div>Esta função está inserida em um loop e deveria me retornar um
        número inteiro entre 1 e 5.</div>
      <div>Da primeira vez, isto acontece.</div>
      <div>Mas a partir da segunda, ela começa a me retornar valores
        como 20, 16,...</div>
      <div><br>
      </div>
      <div>Alguma idéia de porque isso acontece???</div>
      <div><br>
      </div>
      <div>Desde já, obrigado!</div>
      <div><br>
      </div>
      <div>Felipe Buchbinder</div>
      <div><br>
      </div>
      <div><br>
      </div>
      <br>
      <fieldset></fieldset>
      <br>
      </div></div><div><pre>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
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 forneça código mínimo reproduzível.</pre>
    </div></blockquote>
    <br>
  </div>

<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><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 forneça código mínimo reproduzível.<br></blockquote></div><br></div></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><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 forneça código mínimo reproduzível.<br></blockquote></div><br></div>