R/rm4pl.R

`rm4pl` <-
function(N=100,S=0,C=0,D=0,s=1/1.702,b=0,c=0,d=1) {
 theta <- data.frame(theta = log(abs(((d-D)-(C+c))/(runif(N)-(C+c)) - 1))/-sqrt(1/(s^2 + S^2)) + 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.