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@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]]
>
> ______________________________________________
> 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.
>

	[[alternative HTML version deleted]]

