Improve scenarios and analysis

1 files changed, 12 insertions, 5 deletions

diff --git a/results/analysis.R b/results/analysis.R
index 2bb7b1d..6794e83 100644
--- a/results/analysis.R
+++ b/results/analysis.R
@@ -1,10 +1,17 @@
 library("tidyverse")
-
+library("knitr")
 
 data=read_csv("results.csv")
 
-final=data%>%group_by(simkey)%>%summarize(energy=mean(energy),sd=sd(energy))
+final=data%>%group_by(simkey,wireless,wakeupfor)%>%summarize(energy=mean(energy),wireless=first(wireless),sd=sd(energy),wakeupfor=first(wakeupfor))
+
+ggplot(final,aes(x=simkey,y=energy))+
+    geom_bar(stat="identity",aes(fill=wireless),position=position_dodge())+
+    xlab("Scenarios")+ylab("Energy (J)")+
+    geom_errorbar(aes(ymin=energy-sd, ymax=energy+sd),width=.2,size=1.5) +
+    facet_wrap(~ wakeupfor) 
 
-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) 
+for(wake in unique(data$wakeupfor)){
+    print(kable(final%>%filter(wireless=="lora",wakeupfor==wake)))
+    print(kable(final%>%filter(wireless!="lora",wakeupfor==wake)))
+}