Non-Conformable Arrays in While Loop (R)?

Question

I\'m trying to implement gradient descent manually and am running into the following error:

Error in beta - ((alpha/6132) * sum(yhat - y) * x) : non-conforma