error fix

tobiste · Dec 10, 2024 · 04a4747 · 04a4747
1 parent 8c9cd76
commit 04a4747
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/coordinates.R b/R/coordinates.R
@@ -49,7 +49,7 @@ vec2fol0 <- function(x, y, z) {
 
 correct_inc <- function(azi, inc) {
   if (inc > 90) {
-    inc <- 180 - 90
+    inc <- 180 - inc
     azi <- (azi + 180) %% 360
   } else if (inc < 0) {
     inc <- abs(inc)