Debug network model

1 files changed, 7 insertions, 4 deletions

diff --git a/results/analysis.R b/results/analysis.R
index bdc95a4..ca9fa07 100644
--- a/results/analysis.R
+++ b/results/analysis.R
@@ -6,10 +6,13 @@ data=read_csv("results.csv")
 r_=function(x){round(x,digits=2)}
 
 finalEnergy=data%>%group_by(simkey,wireless,wakeupfor)%>%summarize(wireless=first(wireless),sd=sd(energy),wakeupfor=first(wakeupfor),energy=mean(energy))
-finalStats=data%>%group_by(simkey,wireless,wakeupfor,seed)%>%
-    summarise(success=sum(nSend))%>%
-    ungroup()%>%group_by(simkey,wireless,wakeupfor)%>%
-    summarise(sd_success=sd(success),success=mean(success))
+#finalStats=data%>%group_by(simkey,wireless,wakeupfor,seed)%>%
+ #   summarise(success=sum(nSend))%>%
+  #  ungroup()%>%group_by(simkey,wireless,wakeupfor)%>%
+   # summarise(sd_success=sd(success),success=mean(success))
+
+# Success
+finalStats=data%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(sd_success=sd(nSend),success=mean(nSend))
 
 # Sender energy
 senderEnergy=data%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(senderEnergy=mean(energy))