Commit a7d9fd1b authored by Benoit Berges's avatar Benoit Berges
Browse files

update forecast functions

parent fd722666
......@@ -11,7 +11,7 @@ TAC2sel <- function(mult,iYr,iBiol,iFishery,iTAC,catchVar,TAC_var,iTer){
Ctarget <- mean(rowSums(Fs)*catchVar[1,iYr,,"FCprop",,iTer,drop=T])
Dtarget <- iTAC[,iYr,,,"D",iTer,drop=T] * TAC_var[iYr,iTer,"Dsplit"] * TAC_var[iYr,iTer,"Duptake"]
print(iBiol@stock.n[,iYr,,,,iTer,drop=T])
#print(iBiol@stock.n[,iYr,,,,iTer,drop=T])
#print(Atarget)
#print(Btarget)
......
......@@ -114,7 +114,7 @@ projectNSH_FMSYAR <- function(iStocks,
f26)
#print(res$stf@catch[,FcY,'A'])
print(fbar(res$stf[,FcY,'A']))
#print(fbar(res$stf[,FcY,'A']))
iCATCH[,FcY,,,c("A","B","C","D")] <- res$stf@catch[,FcY]
totF <- unitSums(res$stf@harvest[,FcY])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment