powered by
rpf.sample(theta, items, params)
sample
i1 <- rpf.drm() i1.p <- rpf.rparam(i1) i2 <- rpf.gpcm(numOutcomes=3) i2.p <- rpf.rparam(i2) rpf.sample(5, list(i1,i2), list(i1.p, i2.p))
Run the code above in your browser using DataLab