<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div><span>Um CMR ajudaria!</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal; "><span><br></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal; "><span>Valeu!</span></div><div> </div><div> Fábio Mathias Corrêa<br><br></div><div> Universidade Estadual de Santa Cruz<br>Departamento de Ciências Exatas e da Terra - DCET</div><br><br><div>Campus Soane Nazaré de Andrade, km 16 Rodovia Ilhéus-Itabuna<br>CEP 45662-900. Ilhéus-Bahia</div><div><br><br></div><div>Tel.: 73-3680-5076<br> <div style="font-family: 'times new roman', 'new york', times, serif;
font-size: 12pt; "> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt; "> <div dir="ltr"> <font size="2" face="Arial"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Felipe Buchbinder <felbuch@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Quinta-feira, 13 de Setembro de 2012 12:56<br> <b><span style="font-weight: bold;">Assunto:</span></b> [R-br] Dúvida função no R<br> </font> </div> <br><div id="yiv452887150">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="yiv452887150gmail_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>
</div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" 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><br> </div> </div> </div></div></body></html>