# 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