Create compute.scale.scores.R