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.