diff --git a/fuzzers/FRET/benchmark/plot_comparison.r b/fuzzers/FRET/benchmark/plot_comparison.r
index 6340d34042..69ffad216d 100644
--- a/fuzzers/FRET/benchmark/plot_comparison.r
+++ b/fuzzers/FRET/benchmark/plot_comparison.r
@@ -1,14 +1,18 @@
+library("mosaic")
 args = commandArgs(trailingOnly=TRUE)
 
 if (length(args)==0) {
-  runtype="sequential"
-  target="g723_enc"
-  filename_1="graph.pdf"
+  runtype="timedump"
+  target="tacle_rtos"
+  filename_1=sprintf("%s.png",target)
+  filename_2=sprintf("%s_maxline.png",target)
+  filename_3=sprintf("%s_hist.png",target)
 } else {
   runtype=args[1]
   target=args[2]
   filename_1=sprintf("%s.png",args[2])
   filename_2=sprintf("%s_maxline.png",args[2])
+  filename_3=sprintf("%s_hist.png",args[2])
   # filename_1=args[3]
 }
 
@@ -31,6 +35,11 @@ abline(lm(timetrace ~ iter, data=timetrace),col="green")
 abline(lm(timetrace ~ iter, data=timetrace_rand),col="magenta")
 dev.off()
 
+png(file=filename_3)
+gf_histogram(~ timetrace,data=timetrace, fill="blue") %>%
+gf_histogram(~ timetrace,data=timetrace_rand, fill="orange")
+dev.off()
+
 # Takes a flat list
 trace2maxline <- function(tr) {
   maxline = tr
@@ -47,6 +56,6 @@ png(file=filename_2)
 # pdf(file=filename_1,width=8, height=8)
 plot(timetrace[[2]],timetrace[[1]], col="#99bbff", xlab="iters", ylab="wcet", pch='.')
 points(timetrace_rand[[2]],timetrace_rand[[1]], col="#ffbb99", pch='.')
-abline(lm(timetrace ~ iter, data=timetrace),col="green")
-abline(lm(timetrace ~ iter, data=timetrace_rand),col="magenta")
+#abline(lm(timetrace ~ iter, data=timetrace),col="green")
+#abline(lm(timetrace ~ iter, data=timetrace_rand),col="magenta")
 dev.off()
\ No newline at end of file