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 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)) |