1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
library("tidyverse")
## Simulation Parameters:
## simkey {baseline,extended,hint,hintandextended}
## wireless {lora,nbiot}
## wakeupfor {60s,180s}
## seed [1,200]
## node on[0,12]
## isSender {0,1}
## Metrics:
## energy [0,+inf)
## nDataRcv [0,+inf)
data=read_csv("../CCGRID2022.csv")
data_seed=data%>%
group_by(simkey,wireless,wakeupfor,seed)%>%mutate(coverage=sum(nDataRcv))%>%
group_by(simkey,wireless,wakeupfor,seed,isSender)%>%summarize(energy=mean(energy))%>%
ungroup()
|
