Decimal to Binary in "R"

December 5, 2011
By

(This article was first published on Blag's bag of rants, and kindly contributed to R-bloggers)


Lately...I've been learning "R"...that weird programming language aimed for Statistics and Statistical programming...and I really like it...so as usual, I needed to create my own Decimal to Binary application -;)


binary<-function(p_number) {
bsum<-0
bexp<-1
while (p_number > 0) {
digit<-p_number %% 2
p_number<-floor(p_number / 2)
bsum<-bsum + digit * bexp
bexp<-bexp * 10
}
return(bsum)
}

p_number<-readline("Decimal number?: ")
p_number<-as.numeric(p_number)
bsum<-binary(p_number)
cat("Binary: ", bsum)

For this example, I used RStudio.


Greetings,

Blag.

To leave a comment for the author, please follow the link and comment on his blog: Blag's bag of rants.

R-bloggers.com offers daily e-mail updates about R news and tutorials on topics such as: visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...



If you got this far, why not subscribe for updates from the site? Choose your flavor: e-mail, twitter, RSS, or facebook...

Comments are closed.