Takes Before After QC .fcs files of QC beads run on assay settings, returns the gains and average measurement in a data.frame to allow for plotting to assess stability over time.

Takes Before After QC .fcs files of QC beads run on assay settings, returns the gains and average measurement in a data.frame to allow for plotting to assess stability over time.

Usage

QC_GainMonitoring(x, sample.name, stats)

Arguments

x

A CytoSet (when mapped) or an individual cytoset, example (x=MyCytoSet[[1]])

sample.name

The keyword value that distinguishes individual .fcs files

stats

Whether to summarize the MFIs by "mean" or "median"

Value

A data.frame row

Examples

library(dplyr)
library(purrr)
library(flowWorkspace)

File_Location <- system.file("extdata", package = "Luciernaga")
FCS_Pattern <- ".fcs$"
FCS_Files <- list.files(path = File_Location, pattern = FCS_Pattern,
full.names = TRUE, recursive = FALSE)
QCBeads <- FCS_Files[grep("Before|After", FCS_Files)]
BeforeAfter_CS <- load_cytoset_from_fcs(files=QCBeads,
transformation=FALSE, truncate_max_range = FALSE)
BeforeAfter <- map(.x=BeforeAfter_CS[1:2], .f=QC_GainMonitoring,
 sample.name = "TUBENAME", stats="median") %>% bind_rows()