R says “Cannot take a sample larger than the population” — but I am not taking a sample larger than the population