diff --git a/fuzzers/FRET/benchmark/plot_multi.r b/fuzzers/FRET/benchmark/plot_multi.r index 424f5cc2f2..a85e84c31d 100644 --- a/fuzzers/FRET/benchmark/plot_multi.r +++ b/fuzzers/FRET/benchmark/plot_multi.r @@ -2,7 +2,7 @@ library("mosaic") args = commandArgs(trailingOnly=TRUE) #myolors=c("#339933","#0066ff","#993300") # grün, balu, rot -myolors=c("dark green","dark blue","dark red", "yellow") # grün, balu, rot +myolors=c("green","blue","red", "yellow", "pink", "black") # grün, balu, rot if (length(args)==0) { runtype="timedump" @@ -138,12 +138,14 @@ frame2plot <- function(maxlines,colors=NULL,draw_extreme=TRUE,doint=FALSE,over_n all_maxlines = c() for (bn in BASENAMES) { - runtypefiles <- list.files(file.path(BENCHDIR,bn),pattern="\\.[0-9]$",full.names = TRUE) - runtypetables = lapply(runtypefiles, function(x) read.table(x, quote="\"", comment.char="", col.names=c(bn))) - runtypetables = trim_data(runtypetables) - list_of_maxlines = data2maxlines(runtypetables) - mean_maxline<-Reduce(function(a,b) a+b,list_of_maxlines,0)/length(runtypetables) - all_maxlines=append(all_maxlines,mean_maxline) + runtypefiles <- list.files(file.path(BENCHDIR,bn),pattern=sprintf("%s.[0-9]$",target),full.names = TRUE) + if (length(runtypefiles) > 0) { + runtypetables = lapply(runtypefiles, function(x) read.table(x, quote="\"", comment.char="", col.names=c(bn))) + runtypetables = trim_data(runtypetables) + list_of_maxlines = data2maxlines(runtypetables) + mean_maxline<-Reduce(function(a,b) a+b,list_of_maxlines,0)/length(runtypetables) + all_maxlines=append(all_maxlines,mean_maxline) + } } min_length <- min(sapply(all_maxlines, length)) all_maxlines=lapply(all_maxlines, function(v) v[1:min_length])