1 files changed, 10 insertions, 0 deletions
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)