Displaying 1 result from an estimated 1 matches for "sim3pl".
Did you mean:
impl
2000 Dec 01
1
bug in outer() (PR#755)
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 manu...