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
fp1 <- flowPlate(pbmcPlate,wellAnnotation,plateName="P1")
fp2 <- flowPlate(pbmcPlate,wellAnnotation,plateName="P2")
# Combine the plates.
virtPlate <- fpbind(fp1,fp2)
Run the code above in your browser using DataLab