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

在Mathematica中，我在如何以频率输入数据方面遇到了问题。 例如，我有0个频率为10000，1个频率为9000，2个频率为3000，4个频率为1000。 谁能帮我把这些数据输入mathematica，然后我需要找到这些数字的第一、二、三阶矩。 非常感谢

类似于：

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

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

---

嗨，谢谢你的回复：）但是我不知道为什么当我包含“数据=…”时它不起作用。但是如果我只输入Join[ConstantArray[1，9000]，ConstantArray[2，3000]，ConstantArray[4，1000]，它就可以工作了..我很惊讶Mathematica没有内置函数来实现这一点。请投票支持包含10000的值，但没有充分的理由：）

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