Claudio,

segue a função
eu adaptei de um código postado na lista R internacional (Coloquei suporte a int64, pacote int64. Se não quiser usar deste jeito, basta substituir as chamadas por as.integer)

integer2binary <- function(x, min.digits=floor(logb(max(as.integer(x)), base = 2)) + 1) {
xi <- int64::as.uint64(x)
    if(any(is.na(xi) | ((x-xi)!=0)))
        print(list(ERROR="x not integer", x=x))

N <- length(x)
    xMax <- max(int64::as.uint64(x))

    ndigits <-max(min.digits,(floor(logb(xMax, base=2))+1))
    Base.b <- array(NA, dim=c(N, ndigits))
    for(i in 1:ndigits) {
        Base.b[, ndigits-i+1] <- (x %% 2)
        x <- (x %/% 2)
    }
    if(N ==1) Base.b[1, ] else Base.b
}

[]s
Leonard de Assis
assis <dot> leonard <at> gmail <dot> com

Em 19/12/2011 22:11, Claudio Carneiro escreveu:

Olá todos,

Estou a um tempo à procura, porém sem sucesso, por uma função, que já esteja disponivel no R, que transforme número decimal em binário, e uma que tranforme binário em decimal. Gostaria se vocês tem conhecimento de alguma?

Grato desde já,
Claudio Roberto Carneiro
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.