https://researchdatapod.com/how-to-solve-r-error-invalid-argument-to-unary-operator/