On Sun, Dec 5, 2010 at 11:50 AM, Thomas Levine <thomas.lev...@gmail.com> wrote:
> Example data
>
> desk=data.frame(
> deskchoice=c('mid','mid','left','bookdrop','mid','bookdrop')
> )
>
> --
>
> I like doing stuff like the line below, especially when I'm using Sweave.
>
> print(paste('Within the observation period,',nrow(desk),
> 'patrons approached the circulation desk.'))
>
>
> --
>
> But what if I want to put it at the beginning of a sentence?
>
> print(sum(desk$deskchoice=='bookdrop'),'persons',
> 'used the book drop. Everyone else interacted with a staff member.')
>
> Is there a pretty way to change the result of
> sum(desk$deskchoice=='bookdrop')
> from "2" to "Two"?
>
> --
>
> And what if the number is one?
>
> print(sum(desk$deskchoice=='bookdrop'),
> c('person','persons')[as.numeric(sum(desk$deskchoice=='bookdrop')!=1)+1],
> 'used the book drop. Everyone else interacted with a staff member.')
>
> Is there a prettier way of choosing between "person" and "persons"?
Using John Fox's numbers2words found here:
http://tolstoy.newcastle.edu.au/R/help/05/04/2715.html
and capwords found in the examples section of ?toupper try this:
n <- sum(desk$deskchoice == "bookdrop")
paste(capwords(numbers2words(n)), if (n == 1) "person" else
"people", "used the book drop...")
--
Statistics & Software Consulting
GKX Group, GKX Associates Inc.
tel: 1-877-GKX-GROUP
email: ggrothendieck at gmail.com
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
