如何使用mathematica以频率输入数据

Question

我在如何使用Mathematica中的频率输入数据方面遇到了麻烦。 例如，我有0表示10,000个频率，1表示9000个频率，2表示3000个频率，4表示1000个频率。 任何人都可以帮我将这些数据输入mathematica然后我需要找到这些数字的第一，第二和第三时刻。 非常感谢！

Answer 1

Table[
  fun[
    EmpiricalDistribution[
      {10000, 9000, 3000, 1000} -> {0, 1, 2, 4}
    ]
  ], 
  {fun, {Mean, Variance, Kurtosis}}
]

Answer 2

类似的东西：

data = Join[ConstantArray[1, 9000], ConstantArray[2, 3000], ConstantArray[4, 1000]];

Mean[data]
Variance[data]
Kurtosis[data]