Averages/Mean angle: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,609: / Line 1,609: @@
 The mean angle of [10, 20, 30] is: 20.0 degrees
 >>> </lang>
+=={{header|R}}==
+<lang R>
+deg2rad <- function(x) {
+  x * pi/180
+}
+rad2deg <- function(x) {
+  x * 180/pi
+}
+deg2vec <- function(x) {
+  c(sin(deg2rad(x)), cos(deg2rad(x)))
+}
+vec2deg <- function(x) {
+  rad2deg(atan2(x[1], x[2]))
+}
+mean_vec <- function(x) {
+  y <- lapply(x, deg2vec)
+  Reduce(`+`, y)/length(y)
+}
+mean_deg <- function(x) {
+  res <- vec2deg(mean_vec(x))
+  if (res < 0) {
++ res
+  } else {
+    res
+  }
+}
+mean_deg(c(350, 10))
+mean_deg(c(90, 180, 270, 360))
+mean_deg(c(10, 20, 30))
+</lang>
+{{out}}
+<pre>
+</pre>
 =={{header|Racket}}==