Ограниченная генерация случайных чисел

Мне нужно сгенерировать 500 чисел, 250 единиц и 250 нулей, расположенных случайным образом. Ниже то, что я делаю сейчас. Но это не кажется правильным, пока вывод правильный.

trialNo=500

RandomSample@Flatten[Table[#, {trialNo/2}] & /@ {0, 1}]