irt.item.diff.rasch(items)
irt.discrim(item.diff,theta,items)
irt.item.diff.rasch finds item difficulties with the assumption of theta=0 for all subjects and that all items are equally discriminating.
irt.discrim takes those difficulties and theta estimates from irt.person.rasch
to find item discrimination (beta) parameters.
A far better package with these features is the ltm package. The IRT functions in the psych-package are for pedagogical rather than production purposes. They are believed to be accurate, but are not guaranteed. They do seem to be slightly more robust to missing data structures associated with SAPA data sets than the ltm package.
irt.person.rasch