library(plateCore)
data(plateCore)
## Get the lymphocytes
rectGate <- rectangleGate("FSC-H"=c(300,700),"SSC-H"=c(50,400))
pbmcPlate <- Subset(pbmcPlate, rectGate)
## Create a flowPlate object from the platePBMC and the wellAnnotation
fp <- flowPlate(pbmcPlate,wellAnnotation,plateName="P1")
## Correct for autofluorescence in FL1.H-FL4.H
fp <- fixAutoFl(fp,fsc="FSC-H",chanCols=c("FL1-H","FL2-H","FL3-H","FL4-H"))
Run the code above in your browser using DataLab