# 2PL-models for two items; parameters (a, b)=(1.6, -1) and (1.6, 1), respectively
ip <- cbind(c(1.6, 1.6),c(-1, 1))
yyy <- optical(ip)
drawdesign(yyy=yyy, ip=ip, ylowl=-1000, refline=0.002, layout=1)
Run the code above in your browser using DataLab