try to work with HairEyeColor set from R