auxiliar/species.R

In imarpe/path: Pelagic Assessment Tools for Hydroacoustics

# Species data ------------------------------------------------------------


species = read.csv("auxiliar/species.csv", row.names=1,
                   stringsAsFactors=FALSE)

save(species, file="data/species.RData")


# Life History ------------------------------------------------------------

LHT = list()

# anchoveta 
M_anchoveta = read.csv("auxiliar/M_anchoveta.csv")
G_anchoveta = read.csv("auxiliar/G_anchoveta.csv", row.names=1)
LHT$anchoveta = list(M=M_anchoveta, G=G_anchoveta)

save(LHT, file="data/lht.RData")


# TS relationship ---------------------------------------------------------

.TSdata = list()

.TSdata$anchoveta = list(thr=c(9.4, 13), b20=c(-81.8, -76.25, -77.5),
                         m=20, ref="who made this?")

.TSdata$jurel   = list(thr=NULL, b20=-68.15, m=20, ref="Gutierrez & MacLennan (1998)")
.TSdata$caballa = list(thr=NULL, b20=-119.27, m=51.91, ref="Gutierrez (2002)")
.TSdata$sardina = list(thr=NULL, b20=-74.10, m=20, ref="Gutierrez & MacLennan (1998)")

save(.TSdata, file="data/TS.RData")