Description Usage Arguments Details Value Author(s) References See Also Examples
spillover_compute
uses the method described by Bagwell & Adams 1993 to
calculate the fluorescent spillover matrix using a reference universal
unstained control and single stain compensation controls.
1 2 3 | ## S4 method for signature 'flowSet'
spillover_compute(x, axes_trans = NULL,
channel_match = NULL, spillover = "Spillover-Matrix.csv", ...)
|
x |
object of class |
axes_trans |
object of class
|
channel_match |
name of .csv file containing the names of the samples in
a column called "name" and their matching channel in a column called
"channel". |
spillover |
name of the output spillover csv file, set to
|
... |
additional arguments passed to
|
Calculate spillover matrix using
flowSet
containing gated single stain
compensation controls and an unstained control. spillover_compute
begins by the user selecting which fluorescent channel is associated with
each control from a dropdown menu. Following channel selection,
spillover_compute
runs through each control and plots the density
distribution of the unstained control in red and the compensation control in
blue. Users can then gate the positive signal for spillover calculation using
an interval gate. The percentage spillover is calculated based on the median
fluorescent intensities of the stained populations and the universal
unstained sample. The computed spillover matrix is returned as an R object
and written to a named .csv file for future use.
spillover matrix object and "Spillover Matrix.csv"
file.
Dillon Hammill, Dillon.Hammill@anu.edu.au
C. B. Bagwell \& E. G. Adams (1993). Fluorescence spectral overlap compensation for any number of flow cytometry parameters. in: Annals of the New York Academy of Sciences, 677:167-184.
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 32 33 34 35 36 | library(CytoRSuiteData)
# Bypass directory check for external files
options("CytoRSuite_wd_check" = FALSE)
# Don't run - skips the gating process
options("CytoRSuite_interact" = FALSE)
# Load in compensation controls
fs <- Compensation
gs <- GatingSet(Compensation)
# Gate using gate_draw
gt <- Compensation_gatingTemplate
gating(gt, gs)
# Channel match fille
cmfile <- system.file("extdata",
"Compensation-Channels.csv",
package = "CytoRSuiteData"
)
# Compute fluorescent spillover matrix
spill <- spillover_compute(getData(gs, "Single Cells"),
channel_match = cmfile,
spillover = "Example-spillover.csv"
)
# Compensate samples
gs <- compensate(gs, spill)
# Return CytoRSuite_wd_check to default
options("CytoRSuite_wd_check" = TRUE)
# Return CytoRSuite_interact to default
options("CytoRSuite_interact" = TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.