diff options
| l--------- | .#2019-ICA3PP.org | 1 | ||||
| -rw-r--r-- | 2019-ICA3PP.org | 11 | ||||
| -rw-r--r-- | 2019-ICA3PP.pdf | bin | 0 -> 687606 bytes | |||
| -rw-r--r-- | plots/final.png | bin | 21170 -> 21678 bytes |
4 files changed, 7 insertions, 5 deletions
diff --git a/.#2019-ICA3PP.org b/.#2019-ICA3PP.org new file mode 120000 index 0000000..d649843 --- /dev/null +++ b/.#2019-ICA3PP.org @@ -0,0 +1 @@ +loic@lguegan.29280:1563296642
\ No newline at end of file diff --git a/2019-ICA3PP.org b/2019-ICA3PP.org index bfb9b95..75704b3 100644 --- a/2019-ICA3PP.org +++ b/2019-ICA3PP.org @@ -1130,8 +1130,8 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. [[file:plots/numberSensors-WIFINET.png]] - Final plot: Energy cloud, network and sensors - #+BEGIN_SRC R :noweb yes :results graphics :file plots/final.png + Final plot: Energy cloud, network and sensors + #+BEGIN_SRC R :noweb yes :results graphics :file plots/final.png <<RUtils>> # Linear Approx @@ -1155,10 +1155,12 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. data=data%>%filter(state=="sim",simKey=="nbSensors") # Cloud + data=data%>%mutate(sensorsNumber=nbSensors) data20=data%>%filter(nbSensors==20)%>%mutate(energy=mean(energy)) %>% slice(1L) data100=data%>%filter(nbSensors==100)%>%mutate(energy=mean(energy)) %>% slice(1L) data300=data%>%filter(nbSensors==300)%>%mutate(energy=mean(energy)) %>% slice(1L) dataCloud=rbind(data20,data100,data300)%>%mutate(sensorsNumber=nbSensors)%>%mutate(type="Cloud")%>%select(sensorsNumber,energy,type) + dataCloud=bind_rows(dataCloud,tibble(sensorsNumber=1,energy=approx(data20,data100,1),type="Cloud")) dataCloud=dataCloud%>%mutate(energy=energy/7) # Divide by 7 because 14 core so 1 machine can host 14 vm but we use redundancy (2VM for 1app) # Network @@ -1167,14 +1169,14 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. dataN5=data%>%filter(sensorsNumber==5)%>% mutate(energy=networkEnergy) %>%select(energy,sensorsNumber) dataN10=data%>%filter(sensorsNumber==10)%>%mutate(energy=networkEnergy) %>%select(energy,sensorsNumber) dataNet=rbind(dataN5,dataN10) - fakeNet=tibble(sensorsNumber=c(20,100,300)) + fakeNet=tibble(sensorsNumber=c(1,20,100,300)) fakeNet=fakeNet%>%mutate(energy=approx(dataN5,dataN10,sensorsNumber),type="Network") # Sensors dataS5=data%>%filter(sensorsNumber==5)%>% mutate(energy=sensorsEnergy) %>%select(energy,sensorsNumber) dataS10=data%>%filter(sensorsNumber==10)%>%mutate(energy=sensorsEnergy) %>%select(energy,sensorsNumber) dataS=rbind(dataS5,dataS10) - fakeS=tibble(sensorsNumber=c(20,100,300)) + fakeS=tibble(sensorsNumber=c(1,20,100,300)) fakeS=fakeNet%>%mutate(energy=approx(dataS5,dataS10,sensorsNumber),type="Sensors") # Combine Net/Sensors/Cloud and order factors @@ -1188,7 +1190,6 @@ and provide advice for increasing the energy-efficiency of IoT infrastructures. xlab("Sensors Number")+ylab("Power Consumption (W)")+guides(fill=guide_legend(title="System Part")) p=applyTheme(p)+theme(text = element_text(size=16)) ggsave("plots/final.png",dpi=90,width=8,height=5.5) - #+END_SRC #+RESULTS: diff --git a/2019-ICA3PP.pdf b/2019-ICA3PP.pdf Binary files differnew file mode 100644 index 0000000..020ccb9 --- /dev/null +++ b/2019-ICA3PP.pdf diff --git a/plots/final.png b/plots/final.png Binary files differindex fb4d444..d58af84 100644 --- a/plots/final.png +++ b/plots/final.png |
