# NOT RUN {
data(dots)
out.W <- HDoutliers(dots$W)
# }
# NOT RUN {
plotHDoutliers(dots$W,out.W)
# }
# NOT RUN {
data(ex2D)
out.ex2D <- HDoutliers(ex2D)
# }
# NOT RUN {
plotHDoutliers(ex2D,out.ex2D)
# }
# NOT RUN {
# }
# NOT RUN {
n <- 100000 # number of observations
set.seed(3)
x <- matrix(rnorm(2*n),n,2)
nout <- 10 # number of outliers
x[sample(1:n,size=nout),] <- 10*runif(2*nout,min=-1,max=1)
out.x <- HDoutliers(x)
# }
Run the code above in your browser using DataLab