Remove the terminal leaf nodes that make the gating trees to be different from one another.

It is usually called after gs_split_by_tree and gs_check_redundant_nodes. The operation is done in place through external pointers which means all the orginal GatingSets are modified.

gs_remove_redundant_nodes(x, toRemove)

Arguments

x	GatingSet or list of groups(each group is a list of 'GatingSet`). When it is a list, it is usually the outcome from gs_split_by_tree.
toRemove	list of the node sets to be removed. its length must equals to the length of 'x'. When x is a list, toRemove is usually the outcome from gs_check_redundant_nodes.

Examples

if (FALSE) {
gslist <- list(gs1, gs2, gs3, gs4, gs5)
gs_groups <- gs_split_by_tree(gslist)
toRm <- gs_check_redundant_nodes(gs_groups)
gs_remove_redundant_nodes(gs_groups, toRm)

#Now they can be merged into a single GatingSetList.
#Note that the original gs objects are all modified in place.
GatingSetList(gslist)
}