Why We Use Weighted Mean In R