fix issue for large BI rbi transmitters

baktoft · Oct 3, 2019 · f02901d · f02901d
1 parent 0f170c7
commit f02901d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: yaps
 Title: Track estimation using YAPS (Yet Another Positioning Solver)
-Version: 1.1.0
+Version: 1.1.1
 Authors@R: person("Henrik", "Baktoft", email = "[email protected]", role = c("aut", "cre"))
 Description: Estimate track from acoustic data using YAPS (doi:10.1038/s41598-017-14278-z).
 Depends: R (>= 3.4.3)

diff --git a/src/yaps.cpp b/src/yaps.cpp
@@ -120,7 +120,7 @@ Type objective_function<Type>::operator() ()
 		}
 	} else if(pingType == "rbi"){
 		for(int i = 1; i < np; ++i)	{
-			nll -= dnorm(top(i), top(i-1) + (rbi_max - rbi_min)/2, Type(30.0), true);
+			nll -= dnorm(top(i), top(i-1) + (rbi_max - rbi_min)/2, (rbi_max-rbi_min)/2, true);
 			nll += bi_penalty * (softplus((top(i) - top(i-1)) - rbi_max, bi_epsilon) + softplus(rbi_min - (top(i) - top(i-1)), bi_epsilon));
 		}
 	}