scaleContinuous = function(data) {
  binary = apply(data, 2, function(x) {all(x %in% 0:1)})
  data[!binary] = scale(data[!binary])
  return(data)
}