# NOT RUN {
data(sceiad_subset_data)
rownames(sceiad_subset_data) <- sceiad_subset_data$Barcode
res = stratified_sample(sceiad_subset_data$Barcode, sceiad_subset_data$cluster)
dim(sceiad_subset_data[res, ])
# }
Run the code above in your browser using DataLab