r subscale