From phlamber@luc.ac.be  Thu Mar 19 11:11:33 1998
From: phlamber@luc.ac.be (Philippe Lambert)
Date: Thu, 19 Mar 1998 12:11:33 +0100 (MET)
Subject: a handy function "format.cardinal", looking for a proper name..
In-Reply-To: <199803190934.KAA07638@sophie.ethz.ch>
Message-ID: <Pine.OSF.3.96.980319121016.15933F-100000@alpha>


On Thu, 19 Mar 1998, Martin Maechler wrote:

> This is not a nice name (format is generic; cardinal is not a class) for a
> nice function, which I would like in several places in R code and therefore
> would like to become part of R  (under a better name !)
> 
> format.cardinal <- function(i, sep="")
>         paste(i, c("st","nd","rd","th")[pmin(4,i)], sep=sep)
> 
> # Try
> format.cardinal(sample(1:20))

Isn't it a problem?
> format.cardinal(22)
[1] "22th"

Philippe

> -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
> r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
> Send "info", "help", or "[un]subscribe"
> (in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
> _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
> 

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


a handy function "format.cardinal", looking for a proper name..
Philippe Lambert