R/r4pl.R

`r4pl` <-
function(N=100,a=1,b=0,c=0,d=1) {
 theta <- log(abs((d-c)/(runif(N)-c) - 1))/-a + b
 return(theta)
 }

Try the irtProb package in your browser

Any scripts or data that you put into this service are public.

irtProb documentation built on May 2, 2019, 1:30 p.m.