>>>>> "EN" == Erich Neuwirth <[EMAIL PROTECTED]>
>>>>> on Fri, 26 Sep 2008 00:55:36 +0200 writes:
EN> Since I have to teach number base conversion within 2 weeks,
EN> I could not resist:
Brian Ripley mentioned the functionality in package 'sfsmisc'
and this part {base conversion for integers} goes back to S-plus
code I wrote in 1991.
It works with a simple S3 class "baseInt"
is vectorized and fast without a need to compiled code,
in spirit very similar to Erich's proposals below,
but a bit more elegant (no loops) and probably a bit more flexible.
E.g.
> digitsBase(0:10)
Class 'basedInt'(base = 2) [1:11]
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
[1,] 0 0 0 0 0 0 0 0 1 1 1
[2,] 0 0 0 0 1 1 1 1 0 0 0
[3,] 0 0 1 1 0 0 1 1 0 0 1
[4,] 0 1 0 1 0 1 0 1 0 1 0
But really look at the examples in help(digitsBase)
for more.
Martin Maechler, ETH Zurich
>> Since I have to teach number base conversion within 2 weeks,
>> I could not resist:
>>
>> numberInBase <- function(number,base){
>> numberInBaseRecur<-function(number,base){
>> lastDigit<-function(number,base) number %% base
>> if (number == 0) result <- c(0)
>> else result <- c(numberInBaseRecur(number %/% base,base),
>> lastDigit(number,base))
>> result
>> }
>> result <- numberInBaseRecur(number,base)
>> while (result[1]== 0 && length(result)>1) result <- result[-1]
>> result
>> }
>>
>> makeDigitSeq <- function(digiseq){
>> digits <- c(as.character(0:9),LETTERS)
>> paste(sapply(digiseq,function(x)digits[x+1]),collapse="")
>> }
>>
>>
>> makeDigitSeq(numberInBase(21,2))
>> probably does what you want.
>>
>> This works up to base 36.
p
>> Jason Thibodeau wrote:
> Hello,
>
> Is there a simple way to take an input, and convert the decimal integers to
> binary? In this case, I have a CSV file, and I need to convert the first
> column of every line to binary.
>
> Thanks.
>> --
>> Erich Neuwirth, University of Vienna
>> Faculty of Computer Science
>> Computer Supported Didactics Working Group
>> Visit our SunSITE at http://sunsite.univie.ac.at
>> Phone: +43-1-4277-39464 Fax: +43-1-4277-39459
______________________________________________
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.
