[R] (Fwd) Re: Breakdown a number

[Petr Pikal]

------- Forwarded message follows -------
From:           	Petr Pikal <petr.pikal at precheza.cz>
To:             	roebuck at mdanderson.org
Subject:        	Re: [R] Breakdown a number
Date sent:      	Thu, 20 Apr 2006 17:22:03 +0200

Hi

try this

fff<-function(x,breaks=c(5,10)) {
if (sum(breaks<x)==0)
result <- c(x,rep(0,length(breaks)))
else
result <- c(breaks[breaks<=x],x-max(breaks[breaks<=x]))
result
}

If you want trailing zeroes you need to add them.

HTH
Petr

Paul Roebuck wrote:

Isn't there a builtin method for doing this and, if so, what is it
called? 

        breakdown <- function(whole) {
            breaks <- c(250, 800)
            pieces <- integer(length(breaks) + 1)
            if (whole > breaks[2]) {
                pieces[3] <- whole - breaks[2]
                whole <- breaks[2]

            }
            if (whole > breaks[1]) {
                pieces[2] <- whole - breaks[1]
                whole <- breaks[1]

            }
            pieces[1] <- whole

            return(pieces)
        }

breakdown(1200)	# 250 550 400

----------------------------------------------------------

SIGSIG -- signature too long (core dumped) 
------- End of forwarded message -------Petr Pikal
petr.pikal at precheza.cz