User:Martinmspedersen: Difference between revisions

no edit summary
No edit summary
No edit summary
Line 12:
* [https://rosettacode.org/wiki/Reports:Tasks_not_implemented_in_R Tasks not implemented in R]
* [https://rosettacode.org/wiki/Binary_digits]
 
<code>as.integer(paste(rev(as.integer(intToBits(12))), collapse=""))</code>
<pre>dec2bin <- function(num) {
sub("^0+","",paste(rev(as.integer(intToBits(num))), collapse = ""))