[Rd] bug in outer() (PR#755)

[mvondavier@ets.org]

Full_Name: Matthias von Davier
Version: 1.1.1
OS: nt4.0
Submission from: (NULL) (144.81.31.148)


sim3pl <- function(theta,i) {
p2 <- p3pl(theta,i)
p1 <- runif(1)
temp <- response(p1,p2)
return(p1)
}

when calling outer(theta,items,sim3pl), where 

theta = rnorm(100,m,s)

and 

items = seq(1:nvar)

runif(1) is only called once (instead of 100*nvar times),
even though if calling sim3pl manually, it is working ok.

best regards,
Matthias von Davier

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._