Description Usage Arguments Author(s) Examples
View source: R/gatingTemplate-modifiers.R
Extract Saved Gate(s) from gatingTemplate.
1 | gate_extract(parent, alias, gatingTemplate)
|
parent |
name of the parental population. |
alias |
name of the population for which the gate must be extracted. |
gatingTemplate |
name of the |
Dillon Hammill, Dillon.Hammill@anu.edu.au
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | library(CytoRSuiteData)
# Bypass working directory check for external files
options("CytoRSuite_wd_check" = FALSE)
# Load in samples
fs <- Activation
gs <- GatingSet(fs)
# Apply compensation
gs <- compensate(gs, fs[[1]]@description$SPILL)
# Transform fluorescent channels
trans <- estimateLogicle(gs[[4]], cyto_fluor_channels(gs))
gs <- transform(gs, trans)
# Gate using gate_draw
gt <- Activation_gatingTemplate
gating(gt, gs)
# gatingTemplate
gtfile <- system.file("extdata",
"Activation-gatingTemplate.csv",
package = "CytoRSuiteData"
)
# Extract T Cells gate
gate_extract("Live Cells", "T Cells", gatingTemplate = gtfile)
# Reset CytoRSuite_wd_check to default
options("CytoRSuite_wd_check" = TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.