diff options
| author | Loic Guegan <manzerbredes@mailbox.org> | 2022-12-20 12:23:23 +0100 |
|---|---|---|
| committer | Loic Guegan <manzerbredes@mailbox.org> | 2022-12-20 12:23:23 +0100 |
| commit | 1ca6f686f25d9acf2baf1c467afd221499dd71ec (patch) | |
| tree | 9922f71d03a039ce1e154b5d15c7980ea5d04577 /analysis/days.R | |
| parent | b76ca3e583b28a45487f1b616d3adc7ffb687292 (diff) | |
Minor changes
Diffstat (limited to 'analysis/days.R')
| -rw-r--r-- | analysis/days.R | 2 |
1 files changed, 1 insertions, 1 deletions
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") |