added summarizer.R