| 55 | {{{ |
| 56 | library(RSQLite) |
| 57 | con <- dbConnect(dbDriver("SQLite"), dbname = "gimi20-otg-nmetrics.sq3") |
| 58 | dbListTables(con) |
| 59 | dbReadTable(con,"otr2_udp_in") |
| 60 | mydata <- dbGetQuery(con, "select pkt_length from otr2_udp_in where src_host='192.168.4.10'") |
| 61 | pkt_length <- mydata$pkt_length/1024/1024*8 |
| 62 | pdf("gimi31_otg1.pdf", height=5.5, width=7, pointsize=14) |
| 63 | plot(pkt_length,type="o",col="red",xlab="Experiment Interval",ylab="Packet size") |
| 64 | title(main="Received packet size with sender address 192.168.4.10", col.main="blue", font.main=4) |
| 65 | dev.off() |
| 66 | }}} |