Calculating Mean and Variance for Weighted Discrete Random Variables in R: A Comprehensive Guide