Using Vectorization Techniques to Calculate the Profit and Loss Function: A Performance-Driven Approach in R