Update transposeToSubjectLayout.R

fix