10進数を2進数に変換する

なるべく組み込み関数で処理したい。intToBits関数を使うのが良さそう。
以下は16桁の2進数で表現している。

> paste(rev(as.integer(intToBits(10739))[1:16]), collapse="")
[1] "0010100111110011"