## Not run:
# data(qData)
# p1 <- qaProcess.marginevents(qData[[1]],
# channels=c("FSC-A", "SSC-A"), outdir=tempdir(),
# name=paste("Panel",1,sep="_"))
# writeQATextReport(qData[[1]], processes=list(p1), fileName="test.txt")
# ## End(Not run)
Run the code above in your browser using DataLab