How to take an adaptive sample using R