# Loading the 'tcals' parameters
data(tcals)
# Selecting item parameters only
tcals <- as.matrix(tcals[,1:4])
# 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