diff options
| author | Loic Guegan <manzerbredes@mailbox.org> | 2021-06-17 10:34:07 +0200 |
|---|---|---|
| committer | Loic Guegan <manzerbredes@mailbox.org> | 2021-06-17 10:34:07 +0200 |
| commit | 6e1141431ccb70b98c71fc562c263773e8838e6a (patch) | |
| tree | 388eaf6932fc8acdbda71580f7a0301b6a782018 /results/analysis.R | |
| parent | 82b5b6a0768755b6da24f8daad794f0c4bb43108 (diff) | |
Update simu
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 7f8cf26..362ad49 100644 --- a/results/analysis.R +++ b/results/analysis.R @@ -26,6 +26,10 @@ receiverEnergy=data%>%filter(isSender==0)%>%group_by(simkey,wireless,wakeupfor)% finalStats=finalStats%>%left_join(senderEnergy,by=c("simkey","wireless","wakeupfor")) finalStats=finalStats%>%left_join(receiverEnergy,by=c("simkey","wireless","wakeupfor")) +# J per success +finalStats=finalStats%>%mutate(senderJPS=senderEnergy/success) +finalStats=finalStats%>%mutate(receiverJPS=receiverEnergy/success) + # Uptime senderUptime=data%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(senderUptime=mean(totalUptime)) receiverUptime=data%>%filter(isSender==0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(receiverUptime=mean(totalUptime)) |