how to store a number into a vector

Here is a hack, crude solution to get the digits:

Digits <- function(a){
 out <- rep(NA,nchar(a))
 for(i in 1:nchar(a)) out[i] <- substr(a,i,i)
 return(as.numeric(out))
}

Digits(183429)

If all you want is the last three numbers, consider another hack  
solution:

Last3Digits <- function(a)   as.numeric(substr(a,nchar(a)-2,nchar(a)))

Last3Digits(23495329)

Hope that helps.  These are hack solutions, and I'm willing to bet  
there is
better stuff available.

-tgs


On Sun, Jan 23, 2011 at 1:39 PM, Quan Zhou <quan.poko2000 at gmail.com>  
wrote:

Hi Everyone,
A quick question how to store a number like 12345 to a vector or  
array with
size(1,5), like 1, 2, 3, 4, 5
So I can compare if the last three digits of this number is the  
same with
some other numbers.

Thanks a lot

      [[alternative HTML version deleted]]

	[[alternative HTML version deleted]]