-
Notifications
You must be signed in to change notification settings - Fork 66
/
gradeg_all.r
113 lines (93 loc) · 3.23 KB
/
gradeg_all.r
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
ppi <- 300
dir <- "C:\\Temp\\"
m <- read.csv("data_affi_50GB120sec.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_affi_50GB60sec.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_affi_5GB120sec.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_affi_66GB60sec_cooked.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_colorado.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_dtv.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_emc.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_gap.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_mlna.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_pg8.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_pg512.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_pharos.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_phs.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_ptsmt.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_nyl.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_skytap.csv")
m <- read.csv("data_ssd.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_skytap.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()
m <- read.csv("data_tjx.csv")
file <- paste(dir,m$system[1],"_grade_",".png",sep="")
png(filename=file, width=6*ppi, height=6*ppi, res=ppi )
chart_grades(m)
dev.off()