R code to accompany an article published in Applied Measurement in Education - View it on GitHub