我知道R里面做数据中心化的函数是scale，但是我想做加权中心化，在数据的平均值前面加一个权重，公式为
\[(x_{ij}-\frac{\sum_{i=1}^{n}u_{ik}^{\alpha}x_{i}}{n})^2\]
不知道应该怎么写，有点没有思路