From 296777a891a13df19052564f69c98325e9a0f50d Mon Sep 17 00:00:00 2001 From: Loïc Guégan Date: Tue, 23 Sep 2025 13:43:11 +0200 Subject: Cleaning --- analysis/analysis.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'analysis/analysis.R') 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"))%>% -- cgit v1.2.3