Report question

Question: Taking a disproportionate sample from a dataset in R