itemanal(object, SE.par = 1.96, boots = 1000)
library(rela)
Belts <- Seatbelts[,1:7]
Belts.item <- itemanal(Belts)
summary(Belts.item)
Belts2 <- Belts[,-5]
Belts2 <- Belts2[,-5]
Belts.item2 <- itemanal(Belts2)
summary(Belts.item2)
Run the code above in your browser using DataLab