Commit f36c3efc authored by matbuoro's avatar matbuoro
Browse files

conflicts solved

parent 1260bbb9
<<<<<<< HEAD
rm(list=ls()) # Clear memory
year <- 2016
##________________________SCORFF (starting in 1994)
site <- "Scorff"
setwd(paste("~/Documents/RESEARCH/PROJECTS/ORE/Abundance/",site,"/",sep=""))
years <- seq(1993, year, 1)
table <- array(, dim=c(length(years), 5))
colnames(table) <- c( "Year","Parr 0+","Smolts", "1SW", "MSW")
rownames(table) <- years
smolt.years <- years
table[,1] <- years
## PARR (from 1993 to now on)
stade <- "tacon"
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_parr <- fit$median$ntot_Sc
table[,2] <- round(n_parr,0) # 1995 to now
}
## SMOLTS (from 1995 to now on)
stade <- "smolt"
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_smolt <- fit$median$Nesc # escapement from river
table[3:nrow(table),3] <- round(n_smolt,0) # 1995 to now
}
## ADULTS (1984 to now)
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
table[2:nrow(table),4] <- round(n_1SW,0) # 1995 to now
table[2:nrow(table),5] <- round(n_MSW,0) # 1995 to now
}
#write.csv(round(table,2), file=paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/CIEM/Table9_',site,"_",year,'.csv',sep=""))
con <- file(paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/',site,"/Bilan_",site,"_",year,'.csv',sep=""), open="wt")
write.table( table, con, row.names = FALSE)
close(con)
||||||| parent of 9952865... bilan Scorff added
=======
rm(list=ls()) # Clear memory
year <- 2016
......@@ -107,4 +51,3 @@ table[2:nrow(table),5] <- round(n_MSW,0) # 1995 to now
con <- file(paste('~/Documents/RESEARCH/PROJECTS/ORE/Abundance/',site,"/Bilan_",site,"_",year,'.csv',sep=""), open="wt")
write.csv( table, con, row.names = FALSE)
close(con)
>>>>>>> 9952865... bilan Scorff added
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