Turned to %*% for rickerSV

flr · Oct 16, 2024 · 958a1fc · 958a1fc
1 parent 8402581
commit 958a1fc
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: FLCore
 Title: Core Package of FLR, Fisheries Modelling in R
-Version: 2.6.20.920
+Version: 2.6.20.9301
 Authors@R: c(
   person("Iago", "Mosqueira", email = "iago.mosqueira@wur.nl",
     role = "cre", comment=c(c(ORCID = "0000-0002-3252-0591"))),

diff --git a/R/SRmodels.R b/R/SRmodels.R
@@ -373,7 +373,7 @@ rickerSV <- function()
   logl <- function(s, v, spr0, rec, ssb)
   { 
     pars <- abPars('ricker', s=s, v=v, spr0=spr0)
-    loglAR1(log(rec), log(pars['a']*ssb*exp(-pars['b']*ssb)))
+    loglAR1(log(rec), log(pars['a']%*%ssb%*%exp(-pars['b']*ssb)))
   }
 
   initial <- structure(function(rec, ssb)