First plot

ns3-simulations/.#simulate.org

@@ -1 +0,0 @@
-loic@lguegan.7447:1555309869

ns3-simulations/logs/data.csv

@@ -0,0 +1,22 @@
+sensorsSendInterval,sensorsPktSize,sensorsNumber,nbHop,linksBandwidth,linksLatency,totalEnergy,nbPacketCloud,nbNodes,avgDelay,ns3Version
+1,10,0,2,10,10,62.0902,0,2,0,3.29
+1,10,5,2,10,10,72.6707,145,7,0.31499,3.29
+1,10,15,2,10,10,93.8499,435,17,0.349146,3.29
+1,10,17,2,10,10,98.0881,493,19,0.3524,3.29
+1,10,19,2,10,10,102.329,551,21,0.360529,3.29
+1,10,10,2,10,10,83.2567,290,12,0.329228,3.29
+1,10,4,2,10,10,70.5542,116,6,0.313447,3.29
+1,10,6,2,10,10,74.7874,174,8,0.318587,3.29
+1,10,18,2,10,10,100.209,522,20,0.360961,3.29
+1,10,14,2,10,10,91.7307,406,16,0.342282,3.29
+1,10,8,2,10,10,79.0214,232,10,0.323503,3.29
+1,10,3,2,10,10,68.4377,87,5,0.313855,3.29
+1,10,1,2,10,10,64.2057,29,3,0.296979,3.29
+1,10,20,2,10,10,104.449,580,22,0.366179,3.29
+1,10,12,2,10,10,87.493,348,14,0.33597,3.29
+1,10,11,2,10,10,85.3749,319,13,0.333801,3.29
+1,10,2,2,10,10,66.3217,58,4,0.308412,3.29
+1,10,9,2,10,10,81.1389,261,11,0.324949,3.29
+1,10,13,2,10,10,89.6115,377,15,0.338712,3.29
+1,10,16,2,10,10,95.9693,464,18,0.35247,3.29
+1,10,7,2,10,10,76.9044,203,9,0.320427,3.29

ns3-simulations/ns3-simulator/main.cc

@@ -19,7 +19,7 @@ int main(int argc, char* argv[]){
   cmd.AddValue ("sensorsSendInterval", "Number of sensors measurement per second", sensorsFrequency);
   cmd.AddValue ("sensorsPktSize", "Sensors packet size (bytes)", sensorsPktSize);
   cmd.AddValue ("sensorsNumber", "Number of sensors connected to AP", sensorsNumber);
-  cmd.AddValue ("nbHop", "Number of hop between AP and Cloud", sensorsNumber);
+  cmd.AddValue ("nbHop", "Number of hop between AP and Cloud", nbHop);
   cmd.AddValue ("linksBandwidth", "Links bandwidth between AP and Cloud", linksBandwidth);
   cmd.AddValue ("linksLatency", "Links latency between AP and Cloud", linksLatency);
   cmd.Parse (argc, argv);

ns3-simulations/simulate.org

@@ -84,10 +84,25 @@
    #+END_SRC
 ** R Scripts
 *** Load Data
-    #+BEGIN_SRC R
-    print("lkj")
+    #+NAME: loadData
+    #+BEGIN_SRC R :var genLog=logToCSV()
+      library("tidyverse")
+
+
+      getLabel=function(varName){
+        labels=c(nbNodes="Node Number",nbSensors="Sensor Number",totalEnergy="Total Energy (J)")
+        if(is.na(labels[varName])){
+          return(varName)
+        }
+        return(labels[varName])
+      }
+
+      # Load Data
+      data=read_csv("logs/data.csv")
+      ggplot(data,aes(x=nbNodes,y=totalEnergy))+geom_point()+geom_line()+xlab(getLabel("nbNodes"))+ylab(getLabel("totalEnergy"))
+      ggsave("plot.png")
     #+END_SRC
-   
+