diff options
| author | Loïc Guégan <loic.guegan@mailbox.org> | 2025-09-23 13:43:11 +0200 |
|---|---|---|
| committer | Loïc Guégan <loic.guegan@mailbox.org> | 2025-09-23 13:43:11 +0200 |
| commit | 296777a891a13df19052564f69c98325e9a0f50d (patch) | |
| tree | 315d8a4c2adf2a925a00b8c273ac21dfa8de0aad /analysis/analysis.R | |
| parent | cadd0d81e6a28b50757d4982b15e77eb8e7d0630 (diff) | |
Cleaning
Diffstat (limited to 'analysis/analysis.R')
| -rw-r--r-- | analysis/analysis.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/analysis/analysis.R b/analysis/analysis.R index 46d8788..94b6dc6 100644 --- a/analysis/analysis.R +++ b/analysis/analysis.R @@ -22,7 +22,7 @@ nsimulations=nseed*nwakeupfor*nwireless*nsimkey # Must be 3200 if(!exists("data_seed")){ # Auto-load data only one time ## Load data -data=read_csv("../CCGRID2022.csv")%>%distinct() # Note that in the data experiment wireless=="lora",seed==1,wakeupfor==60,simkey=="baseline" is present 2 times in the CSV file +data=read_csv("../simulations/results/analysis/CCGRID2022.csv")%>%distinct() # Note that in the data experiment wireless=="lora",seed==1,wakeupfor==60,simkey=="baseline" is present 2 times in the CSV file tmp_data_coverage=data%>%group_by(simkey,wireless,wakeupfor,seed)%>%mutate(coverage=sum(nDataRcv))%>%ungroup()%>%filter(isSender==1)%>%select(simkey,wireless,wakeupfor,seed,coverage) data_seed_isSender=data%>%group_by(simkey,wireless,wakeupfor,seed,isSender)%>%summarize(energy_mean=mean(energy))%>% left_join(tmp_data_coverage,by=c("simkey","wireless","wakeupfor","seed"))%>% |