]> git.donarmstrong.com Git - wannabuild.git/blobdiff - etc/graph.R
Don't use m68k data in plots
[wannabuild.git] / etc / graph.R
index c4d71f95bc5ef231db4860fb1b2412d911741e40..8f6cd241584731a7397ed41163498485850e9465 100644 (file)
@@ -1,8 +1,8 @@
-arch <- c("alpha", "amd64", "arm", "armel", "hppa", "i386", "ia64", "m68k", "mips",
+arch <- c("alpha", "amd64", "arm", "armel", "hppa", "i386", "ia64", "mips",
        "mipsel", "powerpc", "s390", "sparc")
-palette(c("black", "turquoise", "red", "OrangeRed", "green3", "cyan", "magenta", "tomato4",
+palette(c("black", "turquoise", "red", "OrangeRed", "green3", "cyan", "magenta",
        "violetred2","thistle4", "steelblue2", "springgreen4",
-       "salmon", "gray"))
+       "salmon"))
 
 readdata <- function (file,start) {
        t <- read.table(file,row.names=1,header=FALSE,
@@ -11,7 +11,7 @@ readdata <- function (file,start) {
        "powerpc","pt","s390","st","amd64","amdt","sparc","spt","armel","aret"))
        ts(as.matrix(data.frame(t[1]/t[2]*100,t[23]/t[24]*100,t[3]/t[4]*100,
        t[27]/t[28]*100,t[5]/t[6]*100,t[9]/t[10]*100,t[11]/t[12]*100,
-       t[13]/t[14]*100,t[15]/t[16]*100,t[17]/t[18]*100,t[19]/t[20]*100,
+       t[15]/t[16]*100,t[17]/t[18]*100,t[19]/t[20]*100,
        t[21]/t[22]*100,t[25]/t[26]*100)),c(2001,start),frequency=365.25)
 }