## Not run:
# #construct a dummy singlet gate
# dummyGate <- rectangleGate("FSC-A" = c(-Inf, Inf), "FSC-H" = c(-Inf, Inf), filterId = "singlets")
# #insert it between the 'not debris" node and "lymph" node
# gs_clone <- insertGate(gs, dummyGate, "not debris", "lymph")
# ## End(Not run)
Run the code above in your browser using DataLab