R/irt.icc.r

In AndreasFischer1985/TAMirt: Software package for building, analyzing and plotting models from the TAM (Test Analysis Modules) package.

#' Function irt.icc
#' 
#' Calculates Item Characteristic Curve.
#' @export


irt.icc <- function (diff = 0, disc = 1, guess = 0, x = seq(-4, 4, length.out = 200)) 
{
    return(as.numeric(guess + (1 - guess) * (1/(1 + exp(-disc * 
        (x - diff))))))
}