# NOT RUN {
# Loading data
data(dataMedicalgraded, package = "ShinyItemAnalysis")
Data <- dataMedicalgraded[, 1:5]
group <- dataMedicalgraded[, 101]
# Testing both DIF effects with adjacent category logit model
(x <- difORD(Data, group, focal.name = 1, model = "adjacent"))
# Estimated parameters
coef(x)
coef(x, SE = TRUE)
coef(x, simplify = TRUE)
coef(x, SE = TRUE, simplify = TRUE)
# }
Run the code above in your browser using DataLab