add R function to systematically read file and plot
update the summary function
running stuff