## Not run:
# #G is a GatingSet
# geData(G,3)
# res <- getSingleCellExpression(gs[1], c("4+/TNFa+", "4+/IL2+"))
# res[[1]]
# res <- getSingleCellExpression(gs[1], c("4+/TNFa+", "4+/IL2+") , list("4+/TNFa+" = "TNFa", "4+/IL2+" = "IL2"))
# ## End(Not run)
Run the code above in your browser using DataLab