# NOT RUN {
data <- hyperBall(50, 10)
res <- dancoDimEst(data, 8, 20)
print(res)
## Reusing calibration data
data2 <- hyperBall(50, 5)
dancoDimEst(data2, 8, 20, calibration.data=res$calibration.data)
# }
Run the code above in your browser using DataLab