Create summarize.R

datahandling files