How to make my code with ellipsoidhull and for/if loop more efficient in R

Question

My code is structured so that I create an ellipse through my first three points of data. Then I go through each next row, and if the point falls outside the ellipse, I recor