palette(c("midnightblue", "gold", "turquoise", "cyan", "black", "red", "OrangeRed", "green3", "blue", "magenta",
"cornsilk3", "darkolivegreen3", "tomato4", "violetred2","thistle4", "steelblue2", "springgreen4",
"salmon","gray"))
cname <- c("date",arch)
plotsize <- function(file,title,p,height=11.8,width=16.9) {
bitmap(file=file,type="png16m",width=16.9,height=11.8)
palette(c("midnightblue", "gold", "turquoise", "cyan", "black", "red", "OrangeRed", "green3", "blue", "magenta",
"cornsilk3", "darkolivegreen3", "tomato4", "violetred2","thistle4", "steelblue2", "springgreen4",
"salmon","gray"))
cname <- c("date",arch)
plotsize <- function(file,title,p,height=11.8,width=16.9) {
bitmap(file=file,type="png16m",width=16.9,height=11.8)