From: Luk Claes Date: Sun, 15 Feb 2009 16:03:48 +0000 (+0000) Subject: update graphing for removal of arm X-Git-Url: https://git.donarmstrong.com/?p=wannabuild.git;a=commitdiff_plain;h=530ae79bf8658ae5a632b0df15106d45b3fa5ea2 update graphing for removal of arm --- diff --git a/etc/graph.R b/etc/graph.R index 8f6cd24..e7c1ab6 100644 --- a/etc/graph.R +++ b/etc/graph.R @@ -6,10 +6,10 @@ palette(c("black", "turquoise", "red", "OrangeRed", "green3", "cyan", "magenta", readdata <- function (file,start) { t <- read.table(file,row.names=1,header=FALSE, - sep=",",col.names=c("date","alpha","at","arm","art","hppa","ht","hurd-i386", + sep=",",col.names=c("date","alpha","at","hppa","ht","hurd-i386", "hit","i386","it","ia64","i6t","m68k","mt","mips","mit","mipsel","mipt", "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, + ts(as.matrix(data.frame(t[1]/t[2]*100,t[23]/t[24]*100, t[27]/t[28]*100,t[5]/t[6]*100,t[9]/t[10]*100,t[11]/t[12]*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)