From 1ca6f686f25d9acf2baf1c467afd221499dd71ec Mon Sep 17 00:00:00 2001 From: Loic Guegan Date: Tue, 20 Dec 2022 12:23:23 +0100 Subject: Minor changes --- analysis/days.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'analysis/days.R') diff --git a/analysis/days.R b/analysis/days.R index 8df39dd..fa706f6 100644 --- a/analysis/days.R +++ b/analysis/days.R @@ -207,7 +207,7 @@ data_seed_energy=data_seed_energy%>%filter(days %in% !!energy$days) ## Compute the delta data energy_coverage_delta=data_seed_energy%>% full_join(energy,by=c("days","wireless","wakeupfor"),suffix=c("","_training")) -energy_coverage_delta=energy_coverage_delta%>%group_by(wireless,wakeupfor)%>%summarize(delta_energy=energy-energy_training,simkey=simkey,days=days,delta_coverage=coverage-coverage_training) +energy_coverage_delta=energy_coverage_delta%>%group_by(wireless,wakeupfor)%>%summarize(delta_energy=energy-energy_training,simkey=simkey,days=days,delta_coverage=(coverage-coverage_training)/3) # delta_coverage divide by 3 because we want the average per day (coverage is measure every 3 days (round-robin of 3 policies)) write("wireless,wakeupfor,policy,slope,intercept,delta_coverage","figures/delta_energy_coverage.csv") -- cgit v1.2.3