Chọn mẫu theo đơn vị tiền tệ sử dụng ngôn ngữ R