added the summarize.r script