4 files changed, 26 insertions, 8 deletions
diff --git a/code/perflow/flow_interarrival.R b/code/perflow/flow_interarrival.R
deleted file mode 100644
index 5ef69ba..0000000
--- a/code/perflow/flow_interarrival.R
+++ /dev/null
@@ -1,8 +0,0 @@
-tcp_times = read.csv(file="../../data/perpacket/tcp_arrivel_time.csv", header=TRUE, sep=",")
-
-tcp_times_cdf = ecdf(tcp_times$time)
-
-plot(tcp_times_cdf, col="black", main="CDF of TCP inter-arrival time of TCP flows", xlab="time (s)", ylab="probability")
-dev.print(png, '../../plots/perflow/interarrival.png', width=500)
-
-#quit()
diff --git a/code/perflow/flow_interarrival_all.R b/code/perflow/flow_interarrival_all.R
new file mode 100644
index 0000000..a10e7a2
--- /dev/null
+++ b/code/perflow/flow_interarrival_all.R
@@ -0,0 +1,10 @@
+all_times = read.csv(file="../../data/perflow/all_arrivel_time.csv", header=TRUE, sep=",")
+udp_times = read.csv(file="../../data/perflow/udp_arrivel_time.csv", header=TRUE, sep=",")
+
+all_cdf = ecdf(all_times$time)
+udp_cdf = ecdf(udp_times$time)
+
+plot(all_cdf, col="red", main="CDF of inter-arrival times of ALL flows", xlab="time (s)", ylab="probability", xlim=c(0,0.1), ylim=c(0,1))
+dev.print(png, '../../plots/perflow/interarrival_all.png', width=500)
+
+#quit()
diff --git a/code/perflow/flow_interarrival_tcp.R b/code/perflow/flow_interarrival_tcp.R
new file mode 100644
index 0000000..fdc09a6
--- /dev/null
+++ b/code/perflow/flow_interarrival_tcp.R
@@ -0,0 +1,8 @@
+tcp_times = read.csv(file="../../data/perflow/tcp_arrivel_time.csv", header=TRUE, sep=",")
+
+tcp_cdf = ecdf(tcp_times$time)
+
+plot(tcp_cdf, col="blue", main="CDF of inter-arrival times of TCP flows", xlab="time (s)", ylab="probability", xlim=c(0,0.002), ylim=c(0,1))
+dev.print(png, '../../plots/perflow/interarrival_tcp.png', width=500)
+
+#quit()
diff --git a/code/perflow/flow_interarrival_udp.R b/code/perflow/flow_interarrival_udp.R
new file mode 100644
index 0000000..8a08003
--- /dev/null
+++ b/code/perflow/flow_interarrival_udp.R
@@ -0,0 +1,8 @@
+udp_times = read.csv(file="../../data/perflow/udp_arrivel_time.csv", header=TRUE, sep=",")
+
+udp_cdf = ecdf(udp_times$time)
+
+plot(udp_cdf, col="black", main="CDF of inter-arrival times of UDP flows", xlab="time (s)", ylab="probability", xlim=c(0,0.002), ylim=c(0,1))
+dev.print(png, '../../plots/perflow/interarrival_udp.png', width=500)
+
+#quit()