Commit bd916b9c authored by Lebot Clément's avatar Lebot Clément
Browse files

New run script

parent 50cce655
......@@ -33,7 +33,7 @@ lastyS <- 2017
wd_model <- "/adultabundance"
## Set your own working directory
wd <- paste0("...",wd_model)
wd <- paste0("C:/Users/clebot/Desktop/OneDrive Entreprise/RENOSAUM/git_article",wd_model)
setwd(wd)
##-----------------------------DATA ----------------------------------##
......@@ -106,10 +106,6 @@ fit.mat <- as.matrix(fit.mcmc)
mydf <- cbind(summary(fit.mcmc)$statistics[,c("Mean","SD")],summary(fit.mcmc)$quantiles)
mydf <- cbind(rownames(mydf), mydf)
rownames(mydf) <- NULL
colnames(mydf)[1] <- c("Variable")
write.table(mydf,file=paste('result/stat',model_name,'.csv',sep=""),sep=",", row.names = FALSE)
write.table(mydf,file=paste('result/stat',model_name,'.csv',sep=""),sep=",", row.names = T)
Markdown is supported
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