Update examples/Hdps.R