Update geometricsummary.R