New run script

adultabundance/run_adultabundance.R

@@ -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)