Improving Performance of `rtruncnorm` Function in R Using OpenMP and Optimized Numerical Libraries