# R Program to convert
# an integer to binary
  
# Loading library
library(binaryLogic)
  
# Calling as.binary() function
as.binary(1)
as.binary(10)
as.binary(-1)
as.binary(0xAB)

[1] 1
[1] 1 0 1 0
[1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[1] 1 0 1 0 1 0 1 1

# R Program to convert
# an integer to binary
  
# Loading library
library(binaryLogic)
  
# Creating a vector
x1 <- c(1, 10, -1, 2, 5)
  
# Calling as.binary() function
as.binary(x1)

[[1]]
[1] 1

[[2]]
[1] 1 0 1 0

[[3]]
 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

[[4]]
[1] 1 0

[[5]]
[1] 1 0 1