require(ITEMAN)
data(dichotomous)
head(dichotomous)
str(dichotomous)
# Key response vector
key <- c("A","D","C","B","C","B","C","D","A","D","C","A","D","C","A",
"B","D","B","A","C","A","A","C","B","C","B","D","A","A","A",
"C","B","B","A","B","D","D","A","D","C","D","A","B","B","C",
"D","B","C","C","B","D","A","C","B","A","D")
# Use ITEMAN1 function to run the item analysis
item.analysis <- ITEMAN1(data=dichotomous,
key=key,
options=c("A","B","C","D"),
ngroup=20,
correction=FALSE)
item.analysis$plots[[1]] # Item Trace Line for the first item
# item.analysis$plots[[2]] # Item Trace Line for the second item
# item.analysis$plots[[3]] # Item Trace Line for the third item
# item.analysis$plots[[4]] # Item Trace Line for the fourth item
# item.analysis$plots[[5]] # Item Trace Line for the fifth item
# item.analysis$plots[[6]] # Item Trace Line for the sixth item
# item.analysis$plots[[7]] # Item Trace Line for the seventh item
# item.analysis$plots[[8]] # Item Trace Line for the eigth item
# item.analysis$plots[[9]] # Item Trace Line for the ninth item
# item.analysis$plots[[10]] # Item Trace Line for the tenth item
Run the code above in your browser using DataLab