I want to calculate in r weighted mean and weighted standard deviation (the weights are sample weights, for a survey sample. It is suppose to show how many units in the pop