Create summarize1.r