# NOT RUN {
cds <- load_a549()
cds_subset <- cds[row.names(subset(rowData(cds),
gene_short_name %in% c("NDRG4", "HBG2"))),]
plot_percent_cells_positive(cds_subset, group_cells_by="culture_plate")
# }
Run the code above in your browser using DataLab