Update summaryInfoPrimary.R