なるべく組み込み関数で処理したい。intToBits関数を使うのが良さそう。 以下は16桁の2進数で表現している。 > paste(rev(as.integer(intToBits(10739))[1:16]), collapse="") [1] "0010100111110011"