It extends gtMethod class.
gtMethod
## Not run: gt <- gatingTemplate(system.file("extdata/gating_template/tcell.csv",package = "openCyto")) ppMethod(gt, '3', '4') ## End(Not run)