## Not run:
# projections <- list("cd3" = c(x = "cd3", y = "AViD")
# , "cd4" = c(x = "cd8", y = "cd4")
# , "cd4/IL2" = c(x = "IL2", y = "IFNg")
# , "cd4/IFNg" = c(x = "IL2", y = "IFNg")
# )
# plotGate(gh, c("cd3", "cd4", "cd4/IL2", "cd4/IFNg"), path = "auto", projections = projections, gpar = c(nrow = 2))
#
# ## End(Not run)
## Not run:
# #G is a GatingHierarchy
# plotGate(G,getNodes(G)[5]);#plot the gate for the fifth node
# ## End(Not run)
Run the code above in your browser using DataLab