remove bounded segreg

ices-tools-prod · Feb 28, 2019 · 2ae9c57 · 2ae9c57
1 parent 6aa57fa
commit 2ae9c57
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/R/StockRectruit_Functions_Likelihood.R b/R/StockRectruit_Functions_Likelihood.R
@@ -100,15 +100,6 @@ Smooth_hockey <- function(ab, ssb, gamma = 0.1) {
 }
 
 
-Segreg_bounded  <- function(ab, ssb) {
-  if (ab$b < Bloss) {
-    rep(1e-9, length(ssb))
-  } else {
-    log(ifelse(ssb >= ab$b, ab$a * ab$b, ab$a * ssb))
-  }
-}
-
-
 
 ######
 # This function calculates the log likelihood of the stock recruit relationship