R/number2binary.R

In nickprock/automata2graph: Convert a cellular automata in a connected graph

number2binary <-
function(number, noBits) {
  binary_vector = rev(as.numeric(intToBits(number)))
  if(missing(noBits)) {
    return(binary_vector)
  } else {
    binary_vector[-(1:(length(binary_vector) - noBits))]
  }
}