# NOT RUN {
flowfile_path <- system.file("extdata", "text.fcs", package = "cyanoFilter",
mustWork = TRUE)
flowfile <- flowCore::read.FCS(flowfile_path, alter.names = TRUE,
transformation = FALSE, emptyValue = FALSE,
dataset = 1) #FCS file contains only one data object
flowfile_nona <- cyanoFilter::nona(x = flowfile)
flowfile_noneg <- cyanoFilter::noneg(x = flowfile_nona)
flowfile_logtrans <- lnTrans(x = flowfile_noneg, c('SSC.W', 'TIME'))
pair_plot(x = flowfile_logtrans,
notToPlot = c("TIME", "FSC.HLin", "RED.R.HLin", "NIR.R.HLin"))
# }
Run the code above in your browser using DataLab