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 from the sample data in plateCore
fp <- flowPlate(pbmcPlate,wellAnnotation,plateName="P1")
# Create a set of negative control gates and then apply them
fp <- setControlGates(fp,gateType="Negative.Control")
fp <- applyControlGates(fp,gateType="Negative.Control")
# Compute summary statistics
fp <- summaryStats(fp)
## Create an MFI plot
mfiPlot(fp,thresh=2.5,xlab="MFI Ratio (Test MFI / Isotype MFI)",xlim=c(0.1,250),
ylab="Percentage of cells above the isotype gate",pch=23)
Run the code above in your browser using DataLab