#############################################################################
# EXAMPLE 1: data.raw1
#############################################################################
data(data.raw1)
# recode data.raw1 and exclude keys 8 and 9 (missing codes) and
# start with initially setting all categories larger than 50res1 <- automatic.recode( data.raw1 , exclude=c(8,9) , pstart.min=.50 )
# inspect calculated keys
res1$item.stat
#############################################################################
# EXAMPLE 2: data.timssAusTwn from TAM package
#############################################################################
library(TAM)
data(data.timssAusTwn,package="TAM")
raw.resp <- data.timssAusTwn[,1:11]
res2 <- automatic.recode( data=raw.resp )
Run the code above in your browser using DataLab