Using R's `integrate()` Function to Numerically Compute Definite Integrals with Loops and Anonymous Functions