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

