On Jan 23, 2011, at 6:00 PM, Thomas Stewart wrote:
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)
str1 <- c(12345, 34567, 45678)
sapply(strsplit(as.character(str1), "") , unlist)
[,1] [,2] [,3]
[1,] "1" "3" "4"
[2,] "2" "4" "5"
[3,] "3" "5" "6"
[4,] "4" "6" "7"
[5,] "5" "7" "8"
--
David
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.poko2...@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]]
______________________________________________
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.
David Winsemius, MD
Heritage Laboratories
West Hartford, CT
______________________________________________
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.
