## Not run:
# #############################################################################
# # 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 50
# res1 <- automatic.recode( data.raw1 , exclude=c(8,9) , pstart.min=.50 )
# # inspect calculated keys
# res1$item.stat
#
# #############################################################################
# # EXAMPLE 2: data.timssAusTwn from TAM package
# #############################################################################
#
# miceadds::library_install("TAM")
# data(data.timssAusTwn,package="TAM")
# raw.resp <- data.timssAusTwn[,1:11]
# res2 <- automatic.recode( data=raw.resp )
# ## End(Not run)
Run the code above in your browser using DataLab