R/number2binary.R

In aleixalcacer/IPMRF: Intervention in Prediction Measure (IPM) for Random Forests

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))]
       }
    }