# [R] Converting Decimal numbers into Binary

William Michels wjm1 @end|ng |rom c@@@co|umb|@@edu
Fri Dec 27 17:43:29 CET 2019

```Hi Paul,

Since you start from strings, it's not clear to me where ASCII enters
the picture. If you really need ASCII, you can use the charToInt()
function in the "R.oo" package. Also there's the AsciiToInt() function
in the  "sfsmisc" package. If you just want to use R's native
as.numeric() conversion, there's the digitsBase() function in the
"sfsmisc" package:

> library(sfsmisc)
> digitsBase(as.numeric("63"), base = 2)
Class 'basedInt'(base = 2) [1:1]
[,1]
[1,]    1
[2,]    1
[3,]    1
[4,]    1
[5,]    1
[6,]    1
>

HTH, Bill.

W. Michels, Ph.D.

On Fri, Dec 27, 2019 at 8:11 AM Marc Schwartz via R-help
<r-help using r-project.org> wrote:
>
>
> > On Dec 27, 2019, at 10:42 AM, 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
>
>
> You might look at the intToBin() function in Henrik's R.utils package on CRAN:
>
> https://cran.r-project.org/web/packages/R.utils/index.html
>
> Regards,
>
> Marc Schwartz
>
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help