names <- c('Bednar','Beres','Carter','Casamento','Dall','Dieglio','Freeland','Fu',
           'Gutierrez-Flores','Hueter','Kinsella','Kulifay','LiMengsi',
           'LiXinyue','Pier','Schultz','Shaffer','Shan','Shen','Stier',
           'Timmons','Williams','Xia','Yook','You','Zhang')

choice <- rbinom(length(names),1,.5)
data.frame(names,choice)