edit R script for comparing the summary statistics