From 69e881864268a4d7ec892159f6185f475cc188aa Mon Sep 17 00:00:00 2001
From: Loic Guegan <manzerbredes@mailbox.org>
Date: Sat, 8 May 2021 21:38:26 +0200
Subject: Add R analysis

---
 results/analysis.R | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 results/analysis.R

(limited to 'results/analysis.R')

diff --git a/results/analysis.R b/results/analysis.R
new file mode 100644
index 0000000..2bb7b1d
--- /dev/null
+++ b/results/analysis.R
@@ -0,0 +1,10 @@
+library("tidyverse")
+
+
+data=read_csv("results.csv")
+
+final=data%>%group_by(simkey)%>%summarize(energy=mean(energy),sd=sd(energy))
+
+ggplot(final,aes(x=simkey,y=energy))+geom_bar(stat="identity")+
+    xlab("Scenario")+ylab("Energy (J)")+
+     geom_errorbar(aes(ymin=energy-sd, ymax=energy+sd),width=.2,size=1.5) 
-- 
cgit v1.2.3