如题，介绍一个新包：（birtr）
library(birtr)
####Test Characteristic Curve######
b <- c(-2.0, -1.0, 0.0, 1.0, 2.0)
a <- c(0.5, 0.75, 1.0, 0.75, 0.5)
c <- c(.2, .2, .2, .2, .2)
tcc(b, a, c)
tcc(a = a, b = b, c = c)
tcc(b) # tcc(b, a = rep(1, length(b)), c =rep(0, length(b)))
tcc(b, a) # tcc(b, a, c = rep(0, length(b)))

###Test Information Function####

b <- c(-1.0, -0.5, 0.0, 0.5, 1.0)
a <- c(2.0, 1.5, 1.5, 1.5, 2.0)
c <- c(.2, .2, .2, .2, .2)
tif(b, a, c)
tif(a = a, b = b, c = c)
tif(b) # tif(b, a = rep(1, length(b)), c = rep(0, length(b)))
tif(b, a) # tif(b, a, c = rep(0, length(b)))


可以结合一本书看《The Basics of Item Response Theory Using R》：https://bbs.pinggu.org/thread-6038818-1-1.html