Anonymous user
Averages/Mean angle: Difference between revisions
m
made R solution just submitted by me slightly more general
No edit summary |
m (made R solution just submitted by me slightly more general) |
||
Line 1,625:
vec2deg <- function(x) {
res <- rad2deg(atan2(x[1], x[2]))
if (res < 0) {▼
360 + res▼
} else {▼
res▼
}▼
}
Line 1,634 ⟶ 1,639:
mean_deg <- function(x) {
▲ if (res < 0) {
▲ 360 + res
▲ } else {
▲ res
▲ }
}
|