# Loading the 'tcals' parameters
data(tcals)
# Selecting item parameters only
tcals <- as.matrix(tcals[,1:4])
# Response probabilities and derivatives (various th and D values)
Pi(th=0, tcals)
Pi(th=0, tcals, D=1.702)
Pi(th=1, tcals)
Run the code above in your browser using DataLab