## load the ANDRICH data
data("ANDRICH")
## Calculate the CAM for the ANDRICH scale
CAM_andrch <- CAM(ANDRICH)
## Use the CAM to calculate the MAX statistic
## for each item in the ANDRICH scale
MAX(CAM_andrch)
## and the whole scale
MAX(CAM_andrch, type="scale")
Run the code above in your browser using DataLab