<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Claudio,<br>
<br>
segue a função<br>
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)<br>
<br>
integer2binary <- function(x,
min.digits=floor(logb(max(as.integer(x)), base = 2)) + 1) {<br>
xi <- int64::as.uint64(x)<br>
if(any(is.na(xi) | ((x-xi)!=0)))<br>
print(list(ERROR="x not integer", x=x))<br>
<br>
N <- length(x)<br>
xMax <- max(int64::as.uint64(x))<br>
<br>
ndigits <-max(min.digits,(floor(logb(xMax, base=2))+1))<br>
Base.b <- array(NA, dim=c(N, ndigits))<br>
for(i in 1:ndigits) {<br>
Base.b[, ndigits-i+1] <- (x %% 2)<br>
x <- (x %/% 2)<br>
}<br>
if(N ==1) Base.b[1, ] else Base.b<br>
}<br>
<pre class="moz-signature" cols="72">[]s
Leonard de Assis
assis <dot> leonard <at> gmail <dot> com
</pre>
<br>
Em 19/12/2011 22:11, Claudio Carneiro escreveu:
<blockquote cite="mid:BLU158-W59021E7C618890002F389D6A40@phx.gbl"
type="cite">
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
<div dir="ltr">
Olá todos,<br>
<br>
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?<br>
<br>
Grato desde já,<br>
<i>Claudio Roberto Carneiro</i><br>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
</body>
</html>