sample.large.numbers <- function(n = 100, max.number = 1000000)
{
  if (max.number > 0)
  {
    x <- 1:max.number
    return(sample(x,n))
  }
  else
  {
    stop("The argument max.number must be positive, not negative")
  }
}

sample.negative.numbers <- function (n = 100, min.number = -100000)
{
  if (min.number < 0)
  {
      x <- min.number:0
      return(sample(x,n, replace = TRUE))
  }
  else
  {
    stop("The argument min.number must be negative, not positive")
  }
}