https://researchdatapod.com/how-to-solve-r-error-non-numeric-argument-to-binary-operator/