This function convert a speed vector represented in complex number into a bearing angle (0°=N ; 90°=E...). This conversion is needed because trigonomtric angle are different than bearing.
Usage
speed2bearing(
speed,
speed_ref = complex(real = 0, imaginary = 1),
positive = TRUE
)