how-to-convert-factor-to-binary-in-r