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