library(PP)
#Example Code
data(fourpl_df)
<- attr(fourpl_df,"diffpar")
diff_par <- attr(fourpl_df,"slopes")
slope_par
<- PP_4pl(respm = itmat,
res1plmle thres = diff_par,
slopes = slope_par,
type = "mle")