diff options
Diffstat (limited to 'results/analysis.R')
| -rw-r--r-- | results/analysis.R | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/results/analysis.R b/results/analysis.R index ca9fa07..d2baea7 100644 --- a/results/analysis.R +++ b/results/analysis.R @@ -14,6 +14,10 @@ finalEnergy=data%>%group_by(simkey,wireless,wakeupfor)%>%summarize(wireless=firs # Success finalStats=data%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(sd_success=sd(nSend),success=mean(nSend)) +# Hint Added +#hintAdded=data%>%filter(isSender==0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(hint_added=mean(hint_added)) +#finalStats=finalStats%>%left_join(hintAdded,by=c("simkey","wireless","wakeupfor")) + # Sender energy senderEnergy=data%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(senderEnergy=mean(energy)) receiverEnergy=data%>%filter(isSender==0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(receiverEnergy=mean(energy)) |