Final commit

data.R

@@ -4,7 +4,7 @@
 # Copyright Iago MOSQUEIRA (WMR), 2019
 # Author: Iago MOSQUEIRA (WMR) <iago.mosqueira@wur.nl>
 #
-# Distributed under the terms of the GPL 3.0
+# Distributed under the terms of the EUPL-1.2
 
 # INPUT: bootstrap/initial/data (VPA format)
 # OUPUT: data/data.RData (FLR), data/*.csv (TAF tables)

output.R

@@ -11,3 +11,4 @@ library(icesTAF)
 
 mkdir("output")
 cp("model/aap.RData", "output/aap.RData")
+

refpts.R

@@ -7,8 +7,11 @@
 # Distributed under the terms of the EUPL-1.2
 
 
+library(FLCore)
 library(msy)
 
+load('model/aap.RData')
+
 Fs <- seq(0, 1.5, length=51)
 nsamp <- 1000
 bio.years <- c(2009, 2018)

utilities.R

@@ -4,7 +4,7 @@
 # Copyright Iago MOSQUEIRA (WMR), 2019
 # Author: Iago MOSQUEIRA (WMR) <iago.mosqueira@wur.nl>
 #
-# Distributed under the terms of the GPL 3.0
+# Distributed under the terms of the EUPL-1.2
 
 
 # readVPAInterCatch {{{
@@ -46,11 +46,6 @@ readVPAInterCatch <- function(file) {
   return(FLQuant(data, dimnames=list(age=age, year=year), units=units))
 } # }}}
 
-# PLOTS {{{
-
-
-# }}}
-
 # mohnMatrix {{{
 
 mohnMatrix <- function(stocks, metric="fbar") {