Changes between Version 22 and Version 23 of GIMIv1.1Tutorial/Analyze

Timestamp:

10/24/12 23:55:24 (12 years ago)

Author:

Cong

Comment:

--

GIMIv1.1Tutorial/Analyze

@@ -42 +42 @@
 {{{
 library(RSQLite)
-con <- dbConnect(dbDriver("SQLite"), dbname = "gimi30-ping_all.sq3")
+con <- dbConnect(dbDriver("SQLite"), dbname = "gimi20-2012-10-18t14.03.42-04.00.sq3")
 dbListTables(con)
 dbReadTable(con,"pingmonitor_myping")
-mydata <- dbGetQuery(con, "select dest_addr,rtt from pingmonitor_myping where dest_addr='192.168.4.10'")
-rtt <- mydata$rtt
-pdf("gimi31_ping1.pdf")
-plot(rtt,type="o",col="red",xlab="Experiment Interval",ylab="RTT (ms)")
-title(main="Ping Experiment to IP address 192.168.4.10", col.main="blue", font.main=4)
+
+mydata1 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.4.10'")
+rtt1 <- abs(mydata1$rtt)
+
+mydata2 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.5.12'")
+rtt2 <- abs(mydata2$rtt)
+
+mydata3 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.4.11'")
+rtt3 <- abs(mydata3$rtt)
+
+mydata4 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.2.12'")
+rtt4 <- abs(mydata4$rtt)
+
+mydata5 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.1.13'")
+rtt5 <- abs(mydata5$rtt)
+
+mydata6 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.5.11'")
+rtt6 <- abs(mydata6$rtt)
+
+mydata7 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.2.10'")
+rtt7 <- abs(mydata7$rtt)
+
+mydata8 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.3.13'")
+rtt8 <- abs(mydata8$rtt)
+
+mydata9 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.6.14'")
+rtt9 <- abs(mydata9$rtt)
+
+mydata10 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.1.10'")
+rtt10 <- abs(mydata10$rtt)
+
+mydata11 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.3.12'")
+rtt11 <- abs(mydata11$rtt)
+
+mydata12 <- dbGetQuery(con, "select dest_addr, rtt from pingmonitor_myping where dest_addr='192.168.6.12'")
+rtt12 <- abs(mydata12$rtt)
+
+png(filename="gimi20-nmetrics-eth", height=650, width=900,
+ bg="white")
+g_range <- range(0,rtt1,rtt2,rtt3,rtt4,rtt5,rtt6,rtt7,rtt8,rtt9,rtt10,rtt11,rtt12)
+
+plot(rtt1,type="o",col="red",ylim= g_range, lty=2, xlab="Experiment Interval",ylab="RTT")
+lines(rtt2,type="o",col="blue",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt3,type="o",col="green",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt4,type="o",col="purple",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt5,type="o",col="violetred",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt6,type="o",col="springgreen",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt7,type="o",col="skyblue",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt8,type="o",col="sienna",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt9,type="o",col="pink",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt10,type="o",col="yellow",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt11,type="o",col="thistle",xlab="Experiment Interval",ylab="Received Data")
+lines(rtt12,type="o",col="orange",xlab="Experiment Interval",ylab="Received Data")
+
+title(main="nmetrics experiment on ExoGENI (Received Data)", col.main="red", font.main=4)
+legend("topright", g_range[4], legend=c("192.168.4.10","192.168.5.12","192.168.4.11","192.168.2.12","192.168.5.11","192.168.2.10","192.168.3.13","192.168.6.14","192.168.1.10","192.168.3.12","192.168.6.12"), cex=0.8,
+   col=c("blue","red","green","purple","violetred","springgreen","skyblue","sienna","pink","yellow","thistle","orange"), pch=15:16:17:18:19:20:21:22:23:24:25:26, lty=1:2:3:4:5:6:7:8:9:10:11:12);
+
+dev.off()
 }}}
 
@@ -56 +110 @@
 [[Image(gimi20-ping.png)]]
 
-The following [http://emmy9.casa.umass.edu/GEC15-GIMI-Tutorial/R_script_otr.r script] plots results from the 
+The following [http://emmy9.casa.umass.edu/GEC15-GIMI-Tutorial/R_script_otr.r script] plots otr results from the 
 4th experiment we executed. 
 
 {{{
+
 library(RSQLite)
 con <- dbConnect(dbDriver("SQLite"), dbname = "gimi20-otg-nmetrics.sq3")
 dbListTables(con)
 dbReadTable(con,"otr2_udp_in")
-mydata <- dbGetQuery(con, "select pkt_length from otr2_udp_in where src_host='192.168.4.10'")
-pkt_length <- mydata$pkt_length/1024/1024*8
-pdf("gimi31_otg1.pdf", height=5.5, width=7, pointsize=14)
-plot(pkt_length,type="o",col="red",xlab="Experiment Interval",ylab="Packet size")
-title(main="Received packet size with sender address 192.168.4.10", col.main="blue", font.main=4)
+
+mydata1 <- dbGetQuery(con, "select oml_sender_id, pkt_length from otr2_udp_in where src_host='192.168.4.10'")
+pkt_length <- mydata1$pkt_length
+#plot(rx_bytes1, type="o", color="red", xlab="Experiment Interval", ylab="Received data")
+
+
+png(filename="gimi20_otg1.png", height=650, width=900,
+ bg="white")
+g_range <- range(0,pkt_length)
+
+plot(pkt_length,type="o",col="red",ylim= g_range, lty=2, xlab="Experiment Interval",ylab="Packet Size")
+
+title(main="Received packet size with sender address 192.168.4.10", col.main="red", font.main=4)
+legend("bottomright", g_range[1], legend=c("interface1"), cex=0.8,
+   col=c("blue"), pch=21, lty=1);
+
 dev.off()
 }}}
@@ -75 +141 @@
 The resulting plot is shown below.
 
-[[Image(gimi31_otg1.jpg)]]
+[[Image(gimi20-otg1.png)]]
+
+Both scripts are simply executed with:
+
+{{{
+R -f <script_name>
+}}}
+
+The following [http://emmy9.casa.umass.edu/GEC15-GIMI-Tutorial/R_script_nmetrics.r script] plots part of nmetrics results from the 
+4th experiment we executed. 
+
+{{{
+library(RSQLite)
+con <- dbConnect(dbDriver("SQLite"), dbname = "gimi20-otg-nmetrics.sq3")
+dbListTables(con)
+dbReadTable(con,"nmetrics_net_if")
+
+mydata1 <- dbGetQuery(con, "select oml_sender_id, rx_bytes from nmetrics_net_if where oml_sender_id=1")
+rx_bytes1 <- abs(mydata1$rx_bytes)
+#plot(rx_bytes1, type="o", color="red", xlab="Experiment Interval", ylab="Received data")
+
+mydata2 <- dbGetQuery(con, "select oml_sender_id, rx_bytes from nmetrics_net_if where oml_sender_id=2")
+rx_bytes2 <- abs(mydata2$rx_bytes)
+
+mydata3 <- dbGetQuery(con, "select oml_sender_id, rx_bytes from nmetrics_net_if where oml_sender_id=3")
+rx_bytes3 <- abs(mydata3$rx_bytes)
+
+mydata4 <- dbGetQuery(con, "select oml_sender_id, rx_bytes from nmetrics_net_if where oml_sender_id=4")
+rx_bytes4 <- abs(mydata4$rx_bytes)
+
+png(filename="gimi20-nmetrics-eth", height=650, width=900,
+ bg="white")
+g_range <- range(0,rx_bytes1,rx_bytes2,rx_bytes3,rx_bytes4)
+
+plot(rx_bytes1,type="o",col="red",ylim= g_range, lty=2, xlab="Experiment Interval",ylab="Received Data")
+lines(rx_bytes2,type="o",col="blue",xlab="Experiment Interval",ylab="Received Data")
+lines(rx_bytes3,type="o",col="green",xlab="Experiment Interval",ylab="Received Data")
+lines(rx_bytes4,type="o",col="purple",xlab="Experiment Interval",ylab="Received Data")
+title(main="nmetrics experiment on ExoGENI (Received Data)", col.main="red", font.main=4)
+legend("bottomright", g_range[4], legend=c("interface1","interface2","interface3","interface4"), cex=0.8,
+   col=c("blue","red","green","purple"), pch=21:22:23:24, lty=1:2:3:4);
+}}}
+
+
+The resulting plot is shown below.
+
+[[Image(gimi20-otg1.png)]]
 
 Both scripts are simply executed with: