# NOT RUN {
# Load a 2-dimensional data set
data(clusters2d)
#
# Set seed for reproduction.
set.seed(5)
#
# Projection median approximated by Monte Carlo Integration.
PmedMCInt(clusters2d, nprojs = 50000)
# [1] 4.3246488 -0.1535201
#
#
# Load a 6-dimensional data set
data(beetle)
#
set.seed(5)
PmedMCInt(beetle,nprojs = 150000)
# [1] 179.92439 125.16939 50.01176 136.55460 13.22277 95.04224
# }
Run the code above in your browser using DataLab