R/qm4pl.R

`qm4pl` <-
function(p=0.05, S=0, C=0, D=0, s=1/1.702, b=0, c=0, d=1, lower.tail=TRUE, log.p=FALSE) {
 if (log.p      == TRUE)  p <- exp(p)
 if (lower.tail == FALSE) p <-    1-p
 result <- log(((d-D)-(C+c))/(p-(C+c)) - 1)/(-1/sqrt(s^2 + S^2)) + b
 return(result)
 }

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.