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

Add result folder

parent a6126235
This diff is collapsed.
......@@ -99,5 +99,17 @@ cat("Sample analyzed after ", elapsed.time, ' minutes\n')
save(fit.mcmc,file=paste('result/result',model_name,'.RData',sep=""))
## STATS
load(file=paste('result/result',model_name,'.RData',sep=""))
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)
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