Commit 842691d6 authored by matbuoro's avatar matbuoro
Browse files

total effectifs instead of escapments

parent c7bcf745
"Year","Parr 0+","Smolts","1SW","MSW"
1993,10620,NA,NA,NA
1994,19940,NA,493,55
1995,10070,6165,662,38
1996,13720,1978,600,64
1997,9148,9968,423,32
1998,6446,4746,510,21
1999,10730,2615,222,60
2000,20380,3165,241,4
2001,3178,11930,296,32
2002,18075,1240,545,20
2003,13610,10130,228,40
2004,24730,7831,1022,54
2005,14300,10760,417,103
2006,15650,7143,814,69
2007,25980,7540,433,83
2008,21840,10540,272,71
2009,17580,13680,255,102
2010,21910,10550,695,61
2011,34160,8783,357,199
2012,32330,8147,333,111
2013,25630,8540,566,94
2014,26430,10260,624,123
2015,45760,6589,527,141
2016,20850,9788,498,65
1994,19940,NA,537,81
1995,10070,6165,778,90
1996,13720,1978,714,89
1997,9148,9968,469,73
1998,6446,4746,582,27
1999,10730,2615,249,91
2000,20380,3165,283,43
2001,3178,11930,330,40
2002,18075,1240,571,21
2003,13610,10130,229,59
2004,24730,7831,1117,66
2005,14300,10760,452,134
2006,15650,7143,887,100
2007,25980,7540,485,97
2008,21840,10540,286,86
2009,17580,13680,261,117
2010,21910,10550,762,66
2011,34160,8783,389,222
2012,32330,8147,368,143
2013,25630,8540,598,103
2014,26430,10260,682,137
2015,45760,6589,600,177
2016,20850,9788,619,84
......@@ -40,8 +40,8 @@ stade <- "adult"
dir <- paste("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/",site,"/",stade,sep="")
if (file.exists(dir)){
load(paste("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/",site,"/",stade,"/results/Results_",stade,"_",year,".RData",sep=""))
n_1SW <-fit$median$e_1SW # spawners 1SW
n_MSW <- fit$median$e_MSW # spawners MSW
n_1SW <-fit$median$n_1SW # 1SW
n_MSW <- fit$median$n_MSW # MSW
table[2:nrow(table),4] <- round(n_1SW,0) # 1995 to now
table[2:nrow(table),5] <- round(n_MSW,0) # 1995 to now
}
......
Supports Markdown
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