-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy path.Rhistory
224 lines (224 loc) · 11.7 KB
/
.Rhistory
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
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
ergebnisse = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
View(ergebnisse)
ergebnisse$Size
averages = aggregate(ergebnisse, list(ergebnisse$Size), mean)
averages
ergebnisse
paste(ergebnisse$Solution, " (", ergebnisse$Mode, ")")
paste(ergebnisse$Solution, "(", ergebnisse$Mode, ")")
ergebnisse$Desc = paste(ergebnisse$Solution, "(", ergebnisse$Mode, ")")
ergebnisse
help(melt)
library(plyr)
help(melt)
help(acast)
library("reshape2")
melt(ergebnisse)
melt(ergebnisse, id=c("Size"))
help(ddply)
ergebnisse
ddply(subset(ergebnisse, Phase == "Update"), .(Size, Desc), Time=mean(Time))
ddply(subset(ergebnisse, Phase == "Update"), .(Size, Desc, Mode), Time=mean(Time))
ddply(subset(ergebnisse, Phase == "Update"), .(Size, Desc), Time=mean(Time))
updates = subset(ergebnisse, Phase=="Update")
updates
ddply(updates, c("Size", "Desc"), Time=mean(Time))
help(aggregate)
aggregate(updates, list(ergebnisse$Size, ergebnisse$Desc), mean)
ddply(updates, c("Size", "Desc"), summarize, Time=mean(Time))
updates = subset(ergebnisse, Phase=="Update")
initials = subset(ergebnisse, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Desc"), summarize, Time=mean(Time))
averages.initial = ddply(initisla, c("Size", "Desc"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Desc"), summarize, Time=mean(Time))
library("reshape2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time))
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(initials, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time))
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(initials, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time))
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time))
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=median(Time) / 10000)
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=median(Time) / 10000)
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)
library("reshape2")
library("ggplot2")
library("plyr")
results = read.csv2("Benchmark\\bin\\Release\\results.csv", sep=';',dec='.',row.names = NULL)
results$Version = paste(results$Solution, "(", results$Mode, ")")
updates = subset(results, Phase=="Update")
initials = subset(results, Phase=="Initial")
averages.updates = ddply(updates, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
averages.initial = ddply(initials, c("Size", "Version"), summarize, Time=mean(Time) / 10000)
bwTheme <- theme(text=element_text(family="Helvetica", size=16),
panel.background = element_rect(fill="#FFFFFF"),
legend.position="bottom",
legend.direction="horizontal",
panel.grid.major = element_line(size=0.3, colour="#333333"),
panel.grid.minor = element_line(size=0.15, colour="#CCCCCC"),
axis.text.x = element_text(colour="black"),
axis.text.y = element_text(colour="black")
)
plot = ggplot(averages.initial, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "initials.pdf", width=10, height=5, dpi=192)
plot = ggplot(averages.updates, aes_string(x = "Size", y = "Time")) + geom_line(aes_string(group = "Version", colour = "Version"), size=1)
plot = plot + geom_point(aes_string(shape = "Version", colour="Version"), size=3)
plot = plot + ylab("Time [ms]") + xlab("Size")
plot = plot + bwTheme
plot = plot + scale_x_log10(breaks = 2^seq(0,6), labels=2^seq(0,6))
plot = plot + scale_y_log10()
ggsave(plot, filename = "updates.pdf", width=10, height=5, dpi=192)