1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
options("scipen" = 10)
data = read.csv(file="../../data/rtt/numpak/r1est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Num. Packets - Rank 1 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/numpak/r1.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/numpak/r2est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Num. Packets - Rank 2 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/numpak/r2.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/numpak/r3est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Num. Packets - Rank 3 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/numpak/r3.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/bytes/r1est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Total Bytes - Rank 1 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/bytes/r1.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/bytes/r2est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Total Bytes - Rank 2 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/bytes/r2.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/bytes/r3est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Total Bytes - Rank 3 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/bytes/r3.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/dur/r1est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Duration - Rank 1 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/dur/r1.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/dur/r2est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Duration - Rank 2 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/dur/r2.png', width=500)
dev.off()
data = read.csv(file="../../data/rtt/dur/r3est.csv", header=FALSE, sep=",")
frame_number = data$V1
rtt_sample = data$V2
rtt_est = data$V3
plot(frame_number, rtt_sample, type="l", xlab="Frame numbers", ylab="time (s)", main="Duration - Rank 3 - RTT Sample and RTT Estimate")
lines(frame_number, rtt_est, col="blue", type="l")
legend('topright', legend=c("Sample", "Estimate"), col=c("black", "blue"), lty=1)
dev.print(png, '../../plots/rtt/dur/r3.png', width=500)
dev.off()
|
