#
#  Create inliers or outliers for tests
#

SimulateAnomalies <- function(nTotal, nAnom, anomValue){
  #
  x <- seq(-1, 1, length = nTotal)
  if (nAnom > 0){
    x[1:nAnom] <- anomValue
  }
  #
  return(x)
}