Added R scripts to visualize the results