* Michael Weylandt <zvpunry.jrlynaqg at tznvy.pbz> [2013-09-10 22:45:00 -0400]:
On Sep 10, 2013, at 18:38, Simon Urbanek <simon.urbanek at r-project.org> wrote:
On Sep 10, 2013, at 12:56 PM, Sam Steingold wrote:
* Dirk Eddelbuettel <rqq at qrovna.bet> [2013-09-10 10:21:33 -0500]:
On 10 September 2013 at 10:32, Sam Steingold wrote:
| (summary.default): show the vector length in addition to quantiles
|
|
| diff -u -i -p -F '^(def' -b -w -B /home/sds/src/R-3.0.1/src/library/base/R/summary.R.old /home/sds/src/R-3.0.1/src/library/base/R/summary.R
| --- /home/sds/src/R-3.0.1/src/library/base/R/summary.R.old 2013-03-05 18:02:33.000000000 -0500
| +++ /home/sds/src/R-3.0.1/src/library/base/R/summary.R 2013-09-10 10:19:02.682946339 -0400
| @@ -39,6 +39,7 @@ summary.default <-
| qq <- stats::quantile(object)
| qq <- signif(c(qq[1L:3L], mean(object), qq[4L:5L]), digits)
| names(qq) <- c("Min.", "1st Qu.", "Median", "Mean", "3rd Qu.", "Max.")
| + qq <- c(qq,"Length" = length(object))
| if(any(nas))
| c(qq, "NA's" = sum(nas))
| else qq
|
| Diff finished. Tue Sep 10 10:19:40 2013