Flow Cytometry --Gating
fs_data <- gs_pop_get_data(auto_gs, "singlets") #get parent data
BGquad_gate <- fsApply(fs_data, function(fr) openCyto:::.quadGate.seq(fr, gFunc = "mindensity",
min = c(3,3), channels = c("FSC-A", "FSC-H")))
Error: All additional arguments must be of length 2
In addition: Warning messages:
1: In min(x) : no non-missing arguments to min; returning Inf
2: In max(x) : no non-missing arguments to max; returning -Inf