Ｒを用いて風向の変化を計算する

Question

Ｒを用いて風向の変化について計算したいと思っています。

風向は360度表記のため、風向45度が90度に変化した時、変化数「90ー45」で45度と計算できますが
350度から45度に変化した場合、「350－45」で315度になります。つまり大きく旋回したことになります。
ですが、本来の風向「45＋10」で55度だけ変化しただけです。
０若しくは360を踏まえた円の計算ができる関数はあるのでしょうか。
教えてもらえると大変助かります。

Answer 1

2通りの計算を試みて小さい方の値を返す関数を作ればいいのではないでしょうか。

test1 <- function(a,b){
  x <- sort(c(a,b))
  d1 <- x[2]-x[1]
  d2 <- (360-x[2])+x[1]
  return(min(d1,d2))
}

Comments

[haruake]

コメントありがとうございます！
大変助かりました！