adding summary with R