OIi(th, it, x, D=1)D=1 (for logistic metric); D=1.702 yields approximately the normal metric (Haley, 1952).nextItem
for further details.createItemBank, nextItem# Loading the 'tcals' parameters
data(tcals)
tcals <- as.matrix(tcals)
# Observed information functions
# (various th, x and D values)
OIi(th=0, tcals, x=0)
OIi(th=0, tcals, x=0, D=1.702)
OIi(th=0, tcals, x=1)
OIi(th=1, tcals, x=1)Run the code above in your browser using DataLab