-arch <- c("alpha", "amd64", "arm", "armel", "hppa", "i386", "ia64", "mips",
+arch <- c("alpha", "amd64", "armel", "hppa", "i386", "ia64", "mips",
"mipsel", "powerpc", "s390", "sparc")
palette(c("black", "turquoise", "red", "OrangeRed", "green3", "cyan", "magenta",
"violetred2","thistle4", "steelblue2", "springgreen4",
sep=",",col.names=c("date","alpha","at","arm","art","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[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)
}