291 | | * The visualization script contains a "R" script to generate pdf/jpg based on the sqlite3 measurement database file generated by the OMLified application. The script is provided below. |
292 | | |
293 | | {{{ |
294 | | library(RSQLite) |
295 | | con <- dbConnect(dbDriver("SQLite"), dbname = "gec14-test6.sq3") |
296 | | dbListTables(con) |
297 | | dbReadTable(con,"iperf_transfer") |
298 | | mydata <- dbGetQuery(con, "select begin_interval,size,end_interval from iperf_transfer") |
299 | | intervals <- mydata$end_interval - mydata$begin_interval |
300 | | throughput <- mydata$size/intervals/1024/1024*8 |
301 | | pdf("gec14-test6.pdf") |
302 | | plot(throughput,type="o",col="red",xlab="Experiment Interval",ylab="Throughput (Mbps)") |
303 | | title(main="Iperf_Experiment", col.main="blue", font.main=4) |
304 | | dev.off() |
305 | | }}} |
| 291 | * The visualization script contains a "R" script to generate pdf/jpg based on the sqlite3 measurement database file generated by the OMLified application. The script is located in ~/Tutorials/GIMI/common/R_script_viz.r. |
| 292 | |