diff options
| -rw-r--r-- | analysis/analysis.R | 19 | ||||
| -rw-r--r-- | analysis/figures/combined.pdf | bin | 0 -> 1444163 bytes | |||
| -rw-r--r-- | analysis/figures/sim_dimension_energy.pdf | bin | 0 -> 14842 bytes |
3 files changed, 18 insertions, 1 deletions
diff --git a/analysis/analysis.R b/analysis/analysis.R index f38a1a3..110549f 100644 --- a/analysis/analysis.R +++ b/analysis/analysis.R @@ -30,6 +30,13 @@ data_seed=data%>%group_by(simkey,wireless,wakeupfor,seed)%>%summarize(energy=sum mutate(efficiency=energy/coverage)%>% ungroup() +## Load simulation results +sim=read_csv("../simulations/results/results.csv") +data_sim=sim%>%group_by(simkey,wireless,wakeupfor,seed)%>%summarize(energy=sum(energy),coverage=sum(nDataRcv))%>% + mutate(efficiency=energy/coverage)%>% + ungroup() + + ## Perform various plots to understand the data GG_VARIOUS=function(){ ## Dimension Coverage @@ -66,8 +73,18 @@ GG_VARIOUS=function(){ } ## Plot to generate: -GG_VARIOUS() +#GG_VARIOUS() + + +GG_SIMULATIONS = function() { + ## Dimension Energy + ggplot(sim%>%mutate(wakeupfor=as.character(wakeupfor)), + aes(simkey,energy,color=model))+geom_point()+facet_wrap(~wireless+wakeupfor)+ggtitle("Simulation Dimension Energy")+ylab("Energy Consumption (J)") + ggsave("figures/sim_dimension_energy.pdf") + +} +GG_SIMULATIONS() system("rm -f figures/combined.pdf") system("pdfunite figures/*.pdf figures/combined.pdf") diff --git a/analysis/figures/combined.pdf b/analysis/figures/combined.pdf Binary files differnew file mode 100644 index 0000000..c1601b1 --- /dev/null +++ b/analysis/figures/combined.pdf diff --git a/analysis/figures/sim_dimension_energy.pdf b/analysis/figures/sim_dimension_energy.pdf Binary files differnew file mode 100644 index 0000000..34116d8 --- /dev/null +++ b/analysis/figures/sim_dimension_energy.pdf |