#!/usr/bin/env Rscript
source (sprintf ("%s/images/lsmr_global_tuning.R", Sys.getenv ("ABS_TOP_SRCDIR")))
print_win_lose_tie_plot ()
plot <- print_win_lose_tie_plot ()
filename <- Sys.getenv ("OUTPUT")
ggplot2::ggsave (filename, plot, device = "svg", width = 5, height = 5)