sample.large.numbers <- function(n = 100, max.number = 1000000)
{
  x <- 1:max.number
  return(sample(x,n))
}

sample.negative.numbers <- function (n = 100, min.number = -100000)
{
  x <- min.number:0
  return(sample(x,n, replace = TRUE))
}