# NOT RUN {
data(immdata)
# Create a fake single-cell data
df <- immdata$data[[1]]
df$Barcode <- "AAAAACCCCC"
df$Barcode[51:nrow(df)] <- "GGGGGCCCCC"
barcodes <- "AAAAACCCCC"
df <- filter_barcodes(df, barcodes)
nrow(df)
# }
Run the code above in your browser using DataLab