https://researchdatapod.com/how-to-solve-r-error-in-apply-dimx-must-have-a-positive-length/