# 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
line1 = paste0("* est.made : 'mean' estiamte is ",round(out1$estdim,2))
line2 = paste0("* est.made : 'median' estiamte is ",round(out2$estdim,2))
line3 = paste0("* est.made : 'vote' estiamte is ",round(out3$estdim,2))
cat(paste0(line1,"\n",line2,"\n",line3))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab