[R-br] Dúvida função no R

[Fabio Mathias Corrêa]

Um CMR ajudaria!

Valeu!
 
        Fábio Mathias Corrêa


   Universidade Estadual de Santa Cruz
Departamento de Ciências Exatas e da Terra - DCET


Campus Soane Nazaré de Andrade, km 16 Rodovia Ilhéus-Itabuna
CEP 45662-900. Ilhéus-Bahia


Tel.: 73-3680-5076


________________________________
 De: Felipe Buchbinder <felbuch em gmail.com>
Para: r-br em listas.c3sl.ufpr.br 
Enviadas: Quinta-feira, 13 de Setembro de 2012 12:56
Assunto: [R-br] Dúvida função no R
 

Prezados professores,

Estou com um problema em uma função no R.
A função é a seguinte:

resp <- function(subject,item,trait)
>>>{
>>>  
>>>  p.vec = NULL
>>>  
>>>  for(category in 1:k)  # k = 5
>>>  {
>>>    p = ogive ( theta[subject,trait] , a[item] , b[item,category] , D )    # aqui é uma logit (D=1) ou probit (D=1.7)
>>>    p.vec = c(p.vec,p)
>>>  }
>>>  
>>>  #Generates a random number
>>>  
>>>  seed<-runif(1,0.2,0.8)
>>>  
>>>  #Selects an answer
>>>  
>>>  temp = which ( p.vec>seed ) 
>>>  if( length (temp) > 0 ) { resp = max (temp) } else { resp = 1 }
>>>  resp
>>>}


Esta função está inserida em um loop e deveria me retornar um número inteiro entre 1 e 5.
Da primeira vez, isto acontece.
Mas a partir da segunda, ela começa a me retornar valores como 20, 16,...

Alguma idéia de porque isso acontece???

Desde já, obrigado!

Felipe Buchbinder


_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120913/0c35e159/attachment.html>