5 files changed, 94 insertions, 0 deletions
diff --git a/code/perflow/.RData b/code/perflow/.RData
new file mode 100644
index 0000000..3265833
--- /dev/null
+++ b/code/perflow/.RData
diff --git a/code/perflow/.Rhistory b/code/perflow/.Rhistory
new file mode 100644
index 0000000..5b3199e
--- /dev/null
+++ b/code/perflow/.Rhistory
@@ -0,0 +1,31 @@
+source("flow_duration.R")
+quit()
+source("flow_duration.R")
+quit()
+source("flow_duration.R")
+source("flow_duration.R")
+all_cdf
+quit()
+source("flow_duration.R")
+source("flow_duration.R")
+source("flow_duration.R")
+source("flow_size.R")
+source("flow_size.R")
+options(scipen = 999)
+plot(all_cdf, col="red", main="CDF of flow size of ALL, TCP, UDP flows", xlab="counts", ylab="probability")
+plot(log(all_cdf), col="red", main="CDF of flow size of ALL, TCP, UDP flows", xlab="counts", ylab="probability")
+all_cdf
+all_cdf = ecdf(log(all_counts))
+plot(all_cdf, col="red", main="CDF of flow size of ALL, TCP, UDP flows", xlab="counts", ylab="probability")
+quit()
+source("flow_size.R")
+source("flow_size.R")
+y
+data_tcp
+data_tcp$Bytes
+quit()
+source("flow_size_bytes.R")
+source("flow_size_bytes.R")
+quit()
+source("flow_size_bytes.R")
+quit()
diff --git a/code/perflow/flow_duration.R b/code/perflow/flow_duration.R
new file mode 100644
index 0000000..4176ada
--- /dev/null
+++ b/code/perflow/flow_duration.R
@@ -0,0 +1,21 @@
+data_tcp = read.csv(file="../../data/perflow/flow_tcp.csv", header=TRUE, sep=",")
+data_udp = read.csv(file="../../data/perflow/flow_udp.csv", header=TRUE, sep=",")
+data_other= read.csv(file="../../data/perflow/flow_other.csv", header=TRUE, sep=",")
+
+tcp_durs = data_tcp$Duration
+udp_durs = data_udp$Duration
+other_durs = data_other$Duration
+all_durs = c(tcp_durs, udp_durs, other_durs)
+
+all_cdf = ecdf(all_durs)
+tcp_cdf = ecdf(tcp_durs)
+udp_cdf = ecdf(udp_durs)
+
+#plot(all_cdf, col="red", type="S", main="CDF of flow duration of ALL, TCP, UDP flows", xlab="duration (s)", ylab="probability")
+plot(all_cdf, col="red", main="CDF of flow duration of ALL, TCP, UDP flows", xlab="duration (s)", ylab="probability")
+lines(tcp_cdf, col="blue")
+lines(udp_cdf, col="green")
+legend(200,0.2, legend=c("All", "TCP", "UDP"), col=c("red", "blue", "green"), lty=1)
+dev.print(png, '../../plots/perflow/flowdur_all.png', width=500)
+
+quit()
diff --git a/code/perflow/flow_size.R b/code/perflow/flow_size.R
new file mode 100644
index 0000000..783b8a7
--- /dev/null
+++ b/code/perflow/flow_size.R
@@ -0,0 +1,21 @@
+data_tcp = read.csv(file="../../data/perflow/flow_tcp.csv", header=TRUE, sep=",")
+data_udp = read.csv(file="../../data/perflow/flow_udp.csv", header=TRUE, sep=",")
+data_other= read.csv(file="../../data/perflow/flow_other.csv", header=TRUE, sep=",")
+
+tcp_counts = data_tcp$Packets
+udp_counts = data_udp$Packets
+other_counts = data_other$Packets
+all_counts = c(tcp_counts, udp_counts, other_counts)
+
+all_cdf = ecdf(log(all_counts))
+tcp_cdf = ecdf(log(tcp_counts))
+udp_cdf = ecdf(log(udp_counts))
+
+#plot(all_cdf, col="red", type="S", main="CDF of flow duration of ALL, TCP, UDP flows", xlab="duration (s)", ylab="probability")
+plot(all_cdf, col="red", main="CDF of packet counts of ALL, TCP, UDP flows", xlab="log_10 counts", ylab="probability")
+lines(tcp_cdf, col="blue")
+lines(udp_cdf, col="green")
+legend(8,0.2, legend=c("All", "TCP", "UDP"), col=c("red", "blue", "green"), lty=1)
+dev.print(png, '../../plots/perflow/flowsize_all.png', width=500)
+
+quit()
diff --git a/code/perflow/flow_size_bytes.R b/code/perflow/flow_size_bytes.R
new file mode 100644
index 0000000..f31d711
--- /dev/null
+++ b/code/perflow/flow_size_bytes.R
@@ -0,0 +1,21 @@
+data_tcp = read.csv(file="../../data/perflow/flow_tcp.csv", header=TRUE, sep=",")
+data_udp = read.csv(file="../../data/perflow/flow_udp.csv", header=TRUE, sep=",")
+data_other= read.csv(file="../../data/perflow/flow_other.csv", header=TRUE, sep=",")
+
+tcp_bytes = data_tcp$Bytes
+udp_bytes = data_udp$Bytes
+other_bytes = data_other$Bytes
+all_bytes = c(tcp_counts, udp_counts, other_counts)
+
+all_cdf = ecdf(log(all_counts))
+tcp_cdf = ecdf(log(tcp_counts))
+udp_cdf = ecdf(log(udp_counts))
+
+#plot(all_cdf, col="red", type="S", main="CDF of flow duration of ALL, TCP, UDP flows", xlab="duration (s)", ylab="probability")
+plot(all_cdf, col="red", main="CDF of byte counts of ALL, TCP, UDP flows", xlab="log byte counts", ylab="probability")
+lines(tcp_cdf, col="blue")
+lines(udp_cdf, col="green")
+legend(8,0.2, legend=c("All", "TCP", "UDP"), col=c("red", "blue", "green"), lty=1)
+dev.print(png, '../../plots/perflow/flowsize_all_bytes.png', width=500)
+
+#quit()