Change in summary()

change in summary.R