myhistogram = function(x, min, max) {
  if (missing(min)){
    
  }
  if (missing(max)){
    
  }
  
  list(borders=c(), counts=c())
}

x = seq(-5, 6, by = 1 / 3)
l = myhistogram(x)
print(l$borders)
print(l$counts)