From c757315893fdf5d951d4cad12775ee60a2de141f Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Fri, 14 May 2021 10:25:51 +0200 Subject: Debug network model --- results/analysis.R | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'results/analysis.R') 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)) -- cgit v1.2.3