[R] Converting Decimal numbers into Binary

[Rui Barradas]

Hello,


Your code and the answers provided, specially Marc's, led me to


utf8ToBin <- function(x, out = c("ascii", "dec", "bin")){
   out <- match.arg(out)
   ascii_datformat <- utf8ToInt(x)
   Base <- ascii_datformat - 48
   Base <- ifelse(Base > 40, Base - 8, Base)
   Bin <- R.utils::intToBin(Base)
   switch (out,
     "ascii" = ascii_datformat,
     "dec" = Base,
     "bin" = Bin
   )
}

utf8ToBin("133m@", out = "ascii")
utf8ToBin("133m@", out = "dec")
utf8ToBin("133m@", out = "bin")


Hope this helps,

Rui Barradas

Às 16:30 de 27/12/19, Paul Bernal escreveu:
> Dear Jeff,
> 
> Hope you are doing great. The link I provide below has the results I am
> expecting. I am doing a test, trying to convert this string: "133m using ogP00PD
> ;88MD5MTDww using 2D7k" into ascii numbers, then to decimal, and ultimately, into
> binary. I am trying to recreate the results obtained in the link below.
> 
> http://www.it-digin.com/blog/?p=20
> 
> Hope this answers your question.
> 
> Thanks for any guidance you can provide,
> 
> Cheers,
> 
> Paul
> 
> El vie., 27 dic. 2019 a las 11:18, Jeff Newmiller (<jdnewmil using dcn.davis.ca.us>)
> escribió:
> 
>> Your question is incomplete... what do you expect the result to be?
>>
>> Perhaps [1] is relevant?
>>
>> [1]
>> https://stackoverflow.com/questions/52298995/r-binary-decimal-conversion-confusion-ais-data
>>
>> On December 27, 2019 7:42:36 AM PST, Paul Bernal <paulbernal07 using gmail.com>
>> wrote:
>>> Dear friends,
>>>
>>> Hope you are all doing well. I need to find a way to convert ascii
>>> numbers
>>> to six digit binary numbers:
>>>
>>> I am working with this example, I converted the string to ascii, and
>>> finally to decimal, but I am having trouble converting the decimal
>>> numbers
>>> into their six digit binary representation. The code below is exactly
>>> what
>>> I have so far:
>>>
>>> ascii_datformat <- utf8ToInt("133m using ogP00PD;88MD5MTDww using 2D7k")
>>> ascii_datformat
>>>
>>> Base <- ascii_datformat - 48
>>>
>>> ifelse(Base > 40, Base-8, Base)
>>>
>>> x <- rev(intToBits(Base))
>>> dec2bin <- function(x) paste(as.integer(rev(intToBits(x))), collapse =
>>> "")
>>> dec2bin
>>>
>>> any guidance will be greatly appreciated,
>>>
>>> Best regards,
>>>
>>> Paul
>>>
>>>        [[alternative HTML version deleted]]
>>>
>>> ______________________________________________
>>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>> 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.
>>
>> --
>> Sent from my phone. Please excuse my brevity.
>>
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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.
>