extract the digits of a number
I don't know if this is cleaner or not, but here is another way:
mynumber <- 1001 floor( mynumber/(10^(nchar(mynumber):1 -1))) %% 10
[1] 1 0 0 1
mynumber <- 12345678 floor( mynumber/(10^(nchar(mynumber):1 -1))) %% 10
[1] 1 2 3 4 5 6 7 8
mynumber <- 9753086421 floor( mynumber/(10^(nchar(mynumber):1 -1))) %% 10
[1] 9 7 5 3 0 8 6 4 2 1 -- Gregory (Greg) L. Snow Ph.D. Statistical Data Center Intermountain Healthcare greg.snow at imail.org 801.408.8111
-----Original Message----- From: r-help-bounces at r-project.org [mailto:r-help-bounces at r- project.org] On Behalf Of Gustavo Carvalho Sent: Tuesday, December 09, 2008 10:49 AM To: r-help at r-project.org Subject: [R] extract the digits of a number Hello, Anyone knows how can I do this in a cleaner way? mynumber = 1001 as.numeric(unlist(strsplit(as.character(mynumber),""))) [1] 1 0 0 1 Thanks in advance, Gustavo
______________________________________________ R-help at 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.