# fit only first three objects with SEX effect
m2 <- pattPC.fit(cemspc, nitems = 3, formel = ~SEX, elim = ~SEX, undec = TRUE)
# calculate and print worth parameters
m2worth <- patt.worth(m2)
m2worthRun the code above in your browser using DataLab