diff options
Diffstat (limited to 'results/analysis3.R')
| -rw-r--r-- | results/analysis3.R | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/results/analysis3.R b/results/analysis3.R index f376299..b800368 100644 --- a/results/analysis3.R +++ b/results/analysis3.R @@ -4,7 +4,7 @@ library("patchwork") library("knitr") library(RColorBrewer) -r_=function(x){round(x,digits=1)} +r_=function(x){round(x,digits=2)} color=function(){scale_fill_brewer(palette = "Accent")} color2=function(){scale_fill_brewer(palette = "Set2")} nolegend=function(){theme(legend.position="none")} @@ -37,11 +37,11 @@ energy60Baseline=energy60%>%filter(simkey=="baseline")%>%uncount(nsimkeys,.id="i energy60=energy60%>%left_join(energy60Baseline,by=c("simkey","wireless","type"),suffix = c("","_baseline")) energy60=energy60%>%mutate(ovhd=energy*100/energy_baseline-100) energy60=energy60%>%rowwise()%>%mutate(ovhd_txt=paste0("(",s_(ovhd),r_(ovhd),"%)")) -success60Snd=data%>%filter(wakeupfor==60)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=r_(mean(nSend)),type="Sender") -success60Rcv=data%>%filter(wakeupfor==60)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=r_(mean(nSend)),type="Receiver") +success60Snd=data%>%filter(wakeupfor==60)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=mean(nSend),type="Sender") +success60Rcv=data%>%filter(wakeupfor==60)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=mean(nSend),type="Receiver") success60=rbind(success60Snd,success60Rcv) success60=success60%>%rowwise()%>%mutate(success_txt=paste0("[",success,"]")) -energy60=energy60%>%left_join(success60)%>%rowwise()%>%mutate(infos_txt=paste0(ovhd_txt,"\n{",r_(energy/success_orig),"}"),infos=r_(energy/success_orig)) +energy60=energy60%>%left_join(success60)%>%rowwise()%>%mutate(infos_txt=paste0(ovhd_txt,"\n{",r_(energy/success_orig),"}"),infos=energy/success_orig) energy60=energy60%>%mutate(type=factor(type,levels = c("Sender","Receiver")),wakeupfor=60) @@ -54,11 +54,11 @@ energy180Baseline=energy180%>%filter(simkey=="baseline")%>%uncount(nsimkeys,.id= energy180=energy180%>%left_join(energy180Baseline,by=c("simkey","wireless","type"),suffix = c("","_baseline")) energy180=energy180%>%mutate(ovhd=energy*100/energy_baseline-100) energy180=energy180%>%rowwise()%>%mutate(ovhd_txt=paste0("(",s_(ovhd),r_(ovhd),"%)")) -success180Snd=data%>%filter(wakeupfor==180)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=r_(mean(nSend)),type="Sender") -success180Rcv=data%>%filter(wakeupfor==180)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=r_(mean(nSend)),type="Receiver") +success180Snd=data%>%filter(wakeupfor==180)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=mean(nSend),type="Sender") +success180Rcv=data%>%filter(wakeupfor==180)%>%filter(isSender!=0)%>%group_by(simkey,wireless,wakeupfor)%>%summarise(success_orig=mean(nSend),success=mean(nSend),type="Receiver") success180=rbind(success180Snd,success180Rcv) success180=success180%>%rowwise()%>%mutate(success_txt=paste0("[",success,"]")) -energy180=energy180%>%left_join(success180)%>%rowwise()%>%mutate(infos_txt=paste0(ovhd_txt,"\n{",r_(energy/success_orig),"}"),infos=r_(energy/success_orig)) +energy180=energy180%>%left_join(success180)%>%rowwise()%>%mutate(infos_txt=paste0(ovhd_txt,"\n{",r_(energy/success_orig),"}"),infos=energy/success_orig) energy180=energy180%>%mutate(type=factor(type,levels = c("Sender","Receiver")),wakeupfor=180) totalUptime60=data%>%filter(wakeupfor==60) @@ -162,13 +162,13 @@ stats%>%filter(wireless==techno)%>%group_by(wakeupfor)%>%group_walk(function(d1, succ_diff=df(r_(as.numeric(senders%>%select(success_diff))),rcolor = TRUE) tw=paste0("&",scenario,"&", - mbox(succ,succ_diff,0.4),"&", - mbox(sender_energy,sender_energy_diff,0.75),"&", - mbox(receiver_energy,receiver_energy_diff,0.75),"&", - mbox(sender_ovhd,sender_ovhd_diff,0.6),"&", - mbox(receiver_ovhd,sender_ovhd_diff,0.6),"&", - mbox(sender_eff,sender_eff_diff,0.55),"&", - mbox(receiver_eff,receiver_eff_diff,0.55)) + mbox(succ,succ_diff,0.5),"&", + mbox(sender_energy,sender_energy_diff,0.8),"&", + mbox(receiver_energy,receiver_energy_diff,0.8),"&", + mbox(sender_ovhd,sender_ovhd_diff,0.7),"&", + mbox(receiver_ovhd,receiver_ovhd_diff,0.7),"&", + mbox(sender_eff,sender_eff_diff,0.65),"&", + mbox(receiver_eff,receiver_eff_diff,0.65)) if(first) |