added r script for the performance graph