Commit 64fcf3ec authored by matbuoro's avatar matbuoro
Browse files

Update 2016

parent 2106618b
# TABLES FOR CIEM (Updated in 2016)
# TABLES FOR CIEM
- Table 7 - Exploitation rate in the river Scorff
- Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs
......
......@@ -45,17 +45,18 @@ Expl_rate <- cbind(
Expl_rate_MSW = (C_F_MSW / n_MSW)*100
)
Expl_rate <- rbind(Expl_rate,colMeans(Expl_rate))
#Expl_rate <- rbind(Expl_rate,colMeans(Expl_rate))
rownames(Expl_rate) <- c(seq(1994,year,1), "Average")
colnames(Expl_rate) <- c("1SW (%)", "MSW (%)")
rowname <- c(seq(1994,year,1))#, "Average")
Expl_rate <- cbind(rowname,Expl_rate)
colnames(Expl_rate) <- c("Year","1SW (%)", "MSW (%)")
#write.csv(round(Expl_rate,1), file=paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table7_Scorff_',year,'.csv',sep=""))
con <- file(paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table7_Scorff_',year,'.csv',sep=""), open="wt")
writeLines(paste("# Table 7 - Exploitation rate in the river Scorff - 1994-",year,")",sep=""), con)
write.csv( round(Expl_rate,1), con)
#writeLines(paste("# Table 7 - Exploitation rate in the river Scorff - 1994-",year,")",sep=""), con)
write.csv( round(Expl_rate,1), con, row.names = FALSE)
close(con)
......@@ -71,9 +72,9 @@ stade <- "adult"
load(paste("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/Nivelle/adult/results/Results_adult_",year,".RData",sep=""))
years <- seq(1984, year, 1)
table <- array(, dim=c(length(years), 4))
colnames(table) <- c("1SW", "MSW", "eggs (million)", "eggs/CL")
rownames(table) <- years
table <- array(, dim=c(length(years), 5))
colnames(table) <- c("Year","1SW", "MSW", "eggs (million)", "eggs/CL")
table[,"Year"] <- years #rownames(table) <- years
#Conservation Limit:
CL = 1.44 # A REVISER?
......@@ -88,10 +89,10 @@ table[,"eggs/CL"] <- table[,"eggs (million)"] / CL
#write.csv(round(table,2), file=paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""))
con <- file(paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""), open="wt")
writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
Conservation Limit = 1.44 (millions)
",sep=""), con)
write.csv( round(table,2), con)
#writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
# Conservation Limit = 1.44 (millions)
# ",sep=""), con)
write.csv( round(table,2), con, row.names = FALSE)
close(con)
##________________________ SCORFF (starting in 1994)
......@@ -103,9 +104,9 @@ load("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/Scorff/tacon/data/data_tacon_2
load(paste("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/",site,"/",stade,"/results/Results_",stade,"_",year,".RData",sep=""))
years <- seq(1984, year, 1)
table <- array(, dim=c(length(years), 4))
colnames(table) <- c("1SW", "MSW", "eggs (million)", "eggs/CL")
rownames(table) <- years
table <- array(, dim=c(length(years), 5))
colnames(table) <- c("Year","1SW", "MSW", "eggs (million)", "eggs/CL")
table[,"Year"] <- years #rownames(table) <- years
# Spawners:
table[,"1SW"] <- c(rep(NA,10), fit$median$e_1SW) # spawners 1SW
......@@ -135,10 +136,10 @@ table[,"eggs/CL"] <- c(rep(NA,10),ratio_CL)
#write.csv(round(table,2), file=paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""))
con <- file(paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""), open="wt")
writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
Conservation Limit = ",round(mean(CL_eggs/1e6),2)," (milliions / using 3 eggs/m²) /!\ revised from data in 2016 by Buoro & Prévost
",sep=""), con)
write.csv( round(table,2), con)
# writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
# Conservation Limit = ",round(mean(CL_eggs/1e6),2)," (milliions / using 3 eggs/m²) /!\ revised from data in 2016 by Buoro & Prévost
# ",sep=""), con)
write.csv( round(table,2), con, row.names = FALSE)
close(con)
......@@ -156,9 +157,9 @@ load(paste("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/",site,"/",stade,"/resul
years <- seq(1984, year, 1)
nyear <- length(years)
table <- array(, dim=c(length(years), 4))
colnames(table) <- c("1SW", "MSW", "eggs (million)", "eggs/CL")
rownames(table) <- years
table <- array(, dim=c(length(years), 5))
colnames(table) <- c("Year","1SW", "MSW", "eggs (million)", "eggs/CL")
table[,"Year"] <- years #rownames(table) <- years
# Spawners:
table[,"1SW"] <- fit$median$Nesc_1SW # spawners 1SW
......@@ -196,10 +197,10 @@ table[,"eggs/CL"] <- ratio_CL
#write.csv(round(table,2), file=paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""))
con <- file(paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""), open="wt")
writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
Conservation Limit =",CL_eggs," (millions)
",sep=""), con)
write.csv( round(table,2), con)
# writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
# Conservation Limit =",CL_eggs," (millions)
# ",sep=""), con)
write.csv( round(table,2), con, row.names = FALSE)
close(con)
......@@ -217,9 +218,9 @@ load(paste("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/",site,"/",stade,"/resul
# retirer les individus non marqués des effectifs estimés n (n - (data$C_MC - data$Cm_MC))
years <- seq(1984, year, 1)
table <- array(, dim=c(length(years), 4))
colnames(table) <- c("1SW", "MSW", "eggs (million)", "eggs/CL")
rownames(table) <- years
table <- array(, dim=c(length(years), 5))
colnames(table) <- c("Year","1SW", "MSW", "eggs (million)", "eggs/CL")
table[,"Year"] <- years #rownames(table) <- years
# Spawners:
table[,"1SW"] <- fit$median$n_1SW # spawners 1SW
......@@ -248,10 +249,10 @@ table[,"eggs/CL"] <- ratio_CL
#write.csv(round(table,2), file=paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""))
con <- file(paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table8_',site,"_",year,'.csv',sep=""), open="wt")
writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
Conservation Limit =",CL_eggs," (millions)
",sep=""), con)
write.csv( round(table,2), con)
# writeLines(paste("# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -",site," (",year,")
# Conservation Limit =",CL_eggs," (millions)
# ",sep=""), con)
write.csv( round(table,2), con, row.names = FALSE)
close(con)
......
# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -Bresle (2016)
Conservation Limit =0.36 (millions)
"","1SW","MSW","eggs (million)","eggs/CL"
"1984",62,44,0.41,1.15
"1985",100,38,0.46,1.29
"1986",170,39,0.64,1.77
"1987",132,42,0.57,1.58
"1988",95,36,0.45,1.24
"1989",171,48,0.7,1.95
"1990",68,54,0.49,1.36
"1991",157,30,0.56,1.55
"1992",134,45,0.59,1.63
"1993",46,27,0.28,0.77
"1994",45,19,0.22,0.62
"1995",109,8,0.31,0.86
"1996",34,26,0.24,0.67
"1997",30,14,0.16,0.44
"1998",222,14,0.61,1.7
"1999",28,51,0.38,1.05
"2000",56,14,0.23,0.64
"2001",84,18,0.33,0.91
"2002",108,34,0.46,1.29
"2003",26,24,0.21,0.59
"2004",81,15,0.29,0.79
"2005",258,50,0.91,2.52
"2006",106,117,0.95,2.64
"2007",70,22,0.3,0.84
"2008",129,12,0.38,1.06
"2009",85,56,0.53,1.48
"2010",135,47,0.6,1.67
"2011",135,37,0.54,1.5
"2012",129,38,0.54,1.5
"2013",133,77,0.78,2.17
"2014",117,63,0.66,1.83
"2015",119,64,0.66,1.84
"2016",174,32,0.61,1.69
"Year","1SW","MSW","eggs (million)","eggs/CL"
1984,62,44,0.41,1.15
1985,100,38,0.46,1.29
1986,170,39,0.64,1.77
1987,132,42,0.57,1.58
1988,95,36,0.45,1.24
1989,171,48,0.7,1.95
1990,68,54,0.49,1.36
1991,157,30,0.56,1.55
1992,134,45,0.59,1.63
1993,46,27,0.28,0.77
1994,45,19,0.22,0.62
1995,109,8,0.31,0.86
1996,34,26,0.24,0.67
1997,30,14,0.16,0.44
1998,222,14,0.61,1.7
1999,28,51,0.38,1.05
2000,56,14,0.23,0.64
2001,84,18,0.33,0.91
2002,108,34,0.46,1.29
2003,26,24,0.21,0.59
2004,81,15,0.29,0.79
2005,258,50,0.91,2.52
2006,106,117,0.95,2.64
2007,70,22,0.3,0.84
2008,129,12,0.38,1.06
2009,85,56,0.53,1.48
2010,135,47,0.6,1.67
2011,135,37,0.54,1.5
2012,129,38,0.54,1.5
2013,133,77,0.78,2.17
2014,117,63,0.66,1.83
2015,119,64,0.66,1.84
2016,174,32,0.61,1.69
# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -Oir (2016)
Conservation Limit =0.12 (millions)
"","1SW","MSW","eggs (million)","eggs/CL"
"1984",223,28,0.47,3.95
"1985",200,59,0.66,5.5
"1986",66,47,0.36,3.02
"1987",162,13,0.16,1.29
"1988",126,73,0.62,5.18
"1989",177,26,0.38,3.2
"1990",76,16,0.21,1.76
"1991",46,5,0.09,0.73
"1992",37,8,0.14,1.18
"1993",102,10,0.15,1.26
"1994",40,13,0.23,1.89
"1995",134,3,0.29,2.43
"1996",246,7,0.53,4.41
"1997",39,6,0.12,0.99
"1998",154,15,0.34,2.86
"1999",200,30,0.47,3.94
"2000",229,31,0.71,5.91
"2001",175,15,0.34,2.84
"2002",284,37,0.73,6.09
"2003",180,32,0.56,4.63
"2004",323,74,1.2,10
"2005",138,24,0.32,2.66
"2006",175,37,0.63,5.23
"2007",182,28,0.48,4
"2008",94,20,0.38,3.16
"2009",136,25,0.36,2.97
"2010",476,22,1.05,8.71
"2011",203,71,0.91,7.62
"2012",201,51,0.45,3.75
"2013",256,63,0.69,5.76
"2014",225,55,0.77,6.45
"2015",120,45,0.54,4.53
"2016",272,29,0.63,5.22
"Year","1SW","MSW","eggs (million)","eggs/CL"
1984,223,28,0.47,3.95
1985,200,59,0.66,5.5
1986,66,47,0.36,3.02
1987,162,13,0.16,1.29
1988,126,73,0.62,5.18
1989,177,26,0.38,3.2
1990,76,16,0.21,1.76
1991,46,5,0.09,0.73
1992,37,8,0.14,1.18
1993,102,10,0.15,1.26
1994,40,13,0.23,1.89
1995,134,3,0.29,2.43
1996,246,7,0.53,4.41
1997,39,6,0.12,0.99
1998,154,15,0.34,2.86
1999,200,30,0.47,3.94
2000,229,31,0.71,5.91
2001,175,15,0.34,2.84
2002,284,37,0.73,6.09
2003,180,32,0.56,4.63
2004,323,74,1.2,10
2005,138,24,0.32,2.66
2006,175,37,0.63,5.23
2007,182,28,0.48,4
2008,94,20,0.38,3.16
2009,136,25,0.36,2.97
2010,476,22,1.05,8.71
2011,203,71,0.91,7.62
2012,201,51,0.45,3.75
2013,256,63,0.69,5.76
2014,225,55,0.77,6.45
2015,120,45,0.54,4.53
2016,272,29,0.63,5.22
# Table 8 - Index rivers :spawning stock and egg deposition and attainment of CLs -Scorff (2016)
Conservation Limit = 0.63 (milliions / using 3 eggs/m²) /! revised from data in 2016 by Buoro & Prévost
"","1SW","MSW","eggs (million)","eggs/CL"
"1984",NA,NA,NA,NA
"1985",NA,NA,NA,NA
"1986",NA,NA,NA,NA
"1987",NA,NA,NA,NA
"1988",NA,NA,NA,NA
"1989",NA,NA,NA,NA
"1990",NA,NA,NA,NA
"1991",NA,NA,NA,NA
"1992",NA,NA,NA,NA
"1993",NA,NA,NA,NA
"1994",493,55,1.04,1.72
"1995",662,38,1.21,2.01
"1996",600,64,1.23,2.04
"1997",423,32,0.81,1.35
"1998",510,21,0.9,1.49
"1999",222,60,0.62,1.02
"2000",241,4,0.4,0.67
"2001",296,32,0.61,1.01
"2002",545,20,0.95,1.57
"2003",228,40,0.54,0.86
"2004",1022,54,1.85,2.93
"2005",417,103,1.11,1.77
"2006",814,69,1.59,2.52
"2007",433,83,1.06,1.67
"2008",272,71,0.75,1.18
"2009",255,102,0.86,1.36
"2010",695,61.5,1.37,2.17
"2011",357,199,1.45,2.3
"2012",333,111,1.02,1.43
"2013",566,94.5,1.31,1.91
"2014",624,123,1.53,2.23
"2015",527,141,1.46,2.13
"2016",498.5,65,1.08,1.57
"Year","1SW","MSW","eggs (million)","eggs/CL"
1984,NA,NA,NA,NA
1985,NA,NA,NA,NA
1986,NA,NA,NA,NA
1987,NA,NA,NA,NA
1988,NA,NA,NA,NA
1989,NA,NA,NA,NA
1990,NA,NA,NA,NA
1991,NA,NA,NA,NA
1992,NA,NA,NA,NA
1993,NA,NA,NA,NA
1994,493,55,1.04,1.72
1995,662,38,1.21,2.01
1996,600,64,1.23,2.04
1997,423,32,0.81,1.35
1998,510,21,0.9,1.49
1999,222,60,0.62,1.02
2000,241,4,0.4,0.67
2001,296,32,0.61,1.01
2002,545,20,0.95,1.57
2003,228,40,0.54,0.86
2004,1022,54,1.85,2.93
2005,417,103,1.11,1.77
2006,814,69,1.59,2.52
2007,433,83,1.06,1.67
2008,272,71,0.75,1.18
2009,255,102,0.86,1.36
2010,695,61.5,1.37,2.17
2011,357,199,1.45,2.3
2012,333,111,1.02,1.43
2013,566,94.5,1.31,1.91
2014,624,123,1.53,2.23
2015,527,141,1.46,2.13
2016,498.5,65,1.08,1.57
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