<html dir="ltr">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
<style>
<!--
@font-face
{font-family:Calibri}
@font-face
{font-family:Tahoma}
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif"}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif"}
span.EmailStyle17
{font-family:"Calibri","sans-serif";
color:windowtext}
span.BalloonTextChar
{font-family:"Tahoma","sans-serif"}
.MsoChpDefault
{font-family:"Calibri","sans-serif"}
@page WordSection1
{margin:3.0cm 2.0cm 3.0cm 2.0cm}
-->
</style><style type="text/css" id="owaParaStyle">P {margin-top:0;margin-bottom:0;}</style>
</head>
<body fpstyle="1" ocsi="0" vlink="purple" link="blue" lang="DA">
<div style="direction: ltr;font-family: Tahoma;color: #000000;font-size: 10pt;">Hi,<br>
<br>
I have fixed a problem in a coercion method that was causing this. To test it you would need to reinstall FLCore from github. This script shows how it works<br>
<br>
# INSTALL FLCore from github<br>
<div>devtools::install_github("flr/FLCore")<br>
<br>
library(FLasher)<br>
<br>
# FLCore must be 2.6.5.9907 from github<br>
packageVersion('FLCore')<br>
<br>
data(ple4)<br>
<br>
# Fixed recs as sr$params</div>
<div>srpar <- FLPar(c(949341, 844401), dimnames=list(params="a", year=c(2007,2008), iter=1))<br>
<br>
ctl <- fwdControl(year=2007:2008, quant='f', value=0.35)<br>
</div>
<div><br>
</div>
<div># fwd with srpar<br>
x <- fwd(ple4, control=ctl, sr=list(model="geomean", params=srpar))<br>
</div>
<div><br>
</div>
<div># CHECK rec<br>
rec(x)[,ac(2007:2008)]</div>
<div><br>
</div>
<div># CHECK target achieved<br>
</div>
<div>fbar(x)[,ac(2007:2008)]<br>
</div>
<div><br>
</div>
<div><br>
</div>
<div>I hope this fixes it, but do let us know how it goes.</div>
<div><br>
</div>
<div>These changes will be part of the next release of FLCore.</div>
<div><br>
</div>
<div><br>
</div>
<div>Cheers,</div>
<div><br>
</div>
<div><br>
</div>
<div>Iago<br>
<div style="font-family:Tahoma; font-size:13px">
<div style="font-family:Tahoma; font-size:13px"><font face="Courier New"><br>
-- <br>
Dr Iago Mosqueira<br>
<br>
European Commission<br>
DG Joint Research Centre<br>
Directorate D - Sustainable Resources <br>
Unit D.02 Water and Marine Resources<br>
<br>
TP 051, Via Enrico Fermi 2749<br>
I-21027 Ispra (VA), Italy<br>
<br>
Phone : +39 0332 785413<br>
<br>
iago.mosqueira@ec.europa.eu</font></div>
</div>
</div>
<div style="font-family: Times New Roman; color: #000000; font-size: 16px">
<hr tabindex="-1">
<div id="divRpF932714" style="direction: ltr;"><font color="#000000" size="2" face="Tahoma"><b>From:</b> flr-list-bounces@lists.r-forge.r-project.org [flr-list-bounces@lists.r-forge.r-project.org] on behalf of Clara Ulrich [clu@aqua.dtu.dk]<br>
<b>Sent:</b> 17 October 2017 15:33<br>
<b>To:</b> flr-list@flr-project.org<br>
<b>Subject:</b> [FLR-list] deterministic STF with FLasher - recruitment<br>
</font><br>
</div>
<div></div>
<div>
<div class="WordSection1">
<p class="MsoNormal">Hi,</p>
<p class="MsoNormal"> </p>
<p class="MsoNormal"><span lang="EN-US">We are in the process of moving MIXFISH work into 64 bits, and a part of that involve running standard ICES deterministic STF – now with FLasher instead of FLash. No big pbs there, except for the specification of recruitment
in the case, quite standard, where there is an estimate of recruitment for the incoming year class (e.g. from a survey), while for the other years a geometric mean is used, i.e. two different values of recruitment for the next 2 years. We used to do something
like this (here for this year’s NS Cod forecast) </span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US">srPar<-FLPar(c(“692194”, “198216”),dimnames=list(params="a",year=c(2017,2018),iter=1))</span></p>
<p class="MsoNormal"><span lang="EN-US"> x <- fwd(x,control=ctrl.,sr=list(model="mean",params=srPar))</span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US">This does not run in Flasher and I have been trying a few alternatives with FLSR, but without full success so far… How would you write this?</span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
<p class="MsoNormal"><span lang="EN-US">Thanks</span></p>
<p class="MsoNormal"><span lang="EN-US">Clara</span></p>
<p class="MsoNormal"><span lang="EN-US"> </span></p>
</div>
</div>
</div>
</div>
</body>
</html>