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)
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)