У меня есть вектор направлений, для которого я пытаюсь вычислить его среднее направление, используя circular пакет.
library(circular)
direction <- c(168.872, 188.7007, 193.269, 171.4014, 170.1624, 183.9588, 199.1524,
195.3901, 244.2584, 232.5811, 190.1012, 200.5408, 171.5582)
D <- circular(direction, type = 'directions', units = 'degrees')
D <- mean.circular(D)
print(D)
Circular Data:
Type = directions
Units = degrees
Template = none
Modulo = asis
Zero = 0
Rotation = counter
[1] -335.0574
Но я не знаю, как справиться с отрицательными значениями, так как в конце Мне понадобится еще один столбец, который преобразует эти значения в восьмиточечный компас (с учетом 45 ° на сектор). Любая помощь, пожалуйста?