# NOT RUN {
# Load the inadequacy scale data (dichotomous item scores):
data(InadequacyData)
# Compute the Ht scores:
Ht.out <- Ht(InadequacyData)
# Compute the SEs:
Ht.SE <- PerFit.SE(Ht.out)
Ht.SE
# }
Run the code above in your browser using DataLab