# NOT RUN {
## create a data set of intrinsic dimension 2.
X = aux.gensamples(dname="swiss")
## compare effect of 3 combining scheme
out1 = est.made(X, combine="mean")
out2 = est.made(X, combine="median")
out3 = est.made(X, combine="vote")
## print the results
sprintf("* est.made : estimated dimension with 'mean' method is %d.",out1$estdim)
sprintf("* est.made : estimated dimension with 'median' method is %d.",out2$estdim)
sprintf("* est.made : estimated dimension with 'vote' method is %d.",out3$estdim)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab