diff options
| author | Loic Guegan <manzerbredes@mailbox.org> | 2021-05-20 09:48:32 +0200 |
|---|---|---|
| committer | Loic Guegan <manzerbredes@mailbox.org> | 2021-05-20 09:48:32 +0200 |
| commit | 738f22d12f3648fceaec2dd1982224e45e4a246d (patch) | |
| tree | b7abce1896c65a1abca6c4afeb1caa5bf76f35e3 /results/analysis.R | |
| parent | f7c6f8ad56a645a09a5a22010f86ca7a81d85635 (diff) | |
Tests
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..8108041 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)) |