## load the ANDRICH data
data("ANDRICH")
## Calculate the CAM for the ANDRICH scale
CAM_andrch <- CAM(ANDRICH)
## Extract CAM from a fitted mudfold object
mudf_andrich <- mudfold(ANDRICH)
CAM_andrch_mudfold <- CAM(mudf_andrich)
Run the code above in your browser using DataLab