open_in_new
content_copy
marker.genes = lapply( marker.genes, FUN = function(x) {x[x %in% geneNames]})