Преобразование R-функции в латексную формулу

Question

У меня проблемы с преобразованием R-функции в латексную формулу. У меня есть координаты df (m) x и y, которые я затем вычисляю для центроида, используя следующую функцию 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 в латекс?

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}
$$

, если я понял, что вы хотите.