diff --git a/DESCRIPTION b/DESCRIPTION index 72d72181..e4a1d7be 100644 --- 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 index bf51c5cb..7ef4792f 100644 --- 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)