(*1-----------------------------------------------------------------*)
In[]:=
ClearAll["`*"]
In[]:=
data={10,50,40};​​w={2,5,3};
In[]:=
=WeightedData[data,w];
In[]:=
Table[{i,i[]},{i,{Mean,Median,Variance,StandardDeviation,Kurtosis,Skewness,InterquartileRange}}]//Grid
Out[]=
Mean
39
Median
40
Variance
229
StandardDeviation
229
Kurtosis
148777
52441
Skewness
-
4212
229
229
InterquartileRange
40
In[]:=
Mean[]
Out[]=
39
Data from here
(*2---------------------------------------------------------------*)
ClearAll["`*"]
In[]:=
data={8/10,6/10,5/10,8/10};​​w={40/100,20/100,30/100,10/100};
In[]:=
=WeightedData[data,w];
In[]:=
Table[{i,i[]},{i,{Mean,Median,Variance,StandardDeviation,Kurtosis,Skewness,InterquartileRange}}]//Grid
Out[]=
Mean
67
100
Median
3
5
Variance
181
10000
StandardDeviation
181
100
Kurtosis
39817
32761
Skewness
-
444
181
181
InterquartileRange
3
10
In[]:=
Mean[]
Out[]=
67
100
Data from here
(*2---------------------------------------------------------------*)