(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...