将 R 函数转换为 Latex 公式

Question

我无法将 R 函数转换为乳胶公式。我有一个 x 和 y 坐标的 df (m)，然后我使用以下 R 函数计算质心：

cnt = c(mean(m[,1]),mean(m[,2]))

然后我使用相同的列表并计算每个 x,y 对到该质心的距离。最后，我使用以下代码从质心获取所有记录的平均距离：

mean_distance <- mean(apply(m,1,function(x,cnt) {(sqrt((x[1] - cnt[1])^2+(x[2]-cnt[2])^2))},cnt))

我想我已经弄清楚了第一部分（找到质心坐标）

cnt\left(x, y\right)   = \frac{\sum x_{i}}{n}, \frac{\sum y_{i}}{n}

我在进行第二次计算时遇到了问题。我是乳胶新手，想创建（一个优雅的）公式以包含在我正在写的论文中。有什么简单的方法可以将此 R 代码转换为 Latex 吗？

Answer 1

你可以试试

$$
C(x,y) = (C_1, C_2) = \left( \frac1n\sum_{i=1}^n x_i,\frac1n\sum_{i=1}^n y_i\right)
$$

$$
d = \frac1n \sum_{i=1}^n \sqrt{\left( x_i-C_1\right)^2+\left( y_i-C_2\right)^2}
$$

如果我明白你想要什么。