diff options
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"))%>% |