data(demoCell)
op <- options("device")
options("device" = "png")
oneCell <- cellQC(oneCell, qcType = c("plateCorrelation", "wellSd", "cellNumber"),
qc.threshold = c(correlation = 0.7), outpath = tempdir())
options(op)
str(oneCell["qc.data"])
str(oneCell["plate.quality"])
Run the code above in your browser using DataLab