allDigits(c("1231","89a8742")) # TRUE FALSE
isNumeric(c("1231","8.9e-2",".7d2")) # [1] TRUE TRUE FALSE
str2dig("10010") # [1] 1 0 0 1 0
int(10^(7:10)) # 10000000 100000000 1000000000 NA
x <- 8.16617
xToBase(x,2);xToBase(x,3);xToBase(x,4)
# 8.16617 = 1.02077*2^3 = 2.72206*3^1 = 2.04154*4^1
Run the code above in your browser using DataLab