## Not run:
# datadir <- system.file("DualChannelScreen", package = "cellHTS")
# x <- readPlateData("Platelist.txt", "TwoColorData", path=datadir)
# x <- configure(x, "Plateconf.txt", "Screenlog.txt", "Description.txt", path=datadir)
# table(x$wellAnno)
#
# ## Define the controls for the different channels:
# negControls=vector("character", length=dim(x$xraw)[4])
#
# ## channel 1 - gene A
# ## case-insensitive and match the empty string at the beginning and end of a line (to distinguish between "geneA" and "geneAB", for example, although this is not a problem for the well annotation in this example)
#
# negControls[1]= "(?i)^geneA$"
# ## channel 2 - gene A and geneB
# negControls[2]= "(?i)^geneA$|^geneB$"
# posControls = vector("character", length=dim(x$xraw)[4])
# ## channel 1 - no controls
# ## channel 2 - geneC and geneD
# posControls[2]="(?i)^geneC$|^geneD$"
#
# writeReport(x, posControls=posControls, negControls=negControls)
# x = normalizeChannels(x, fun=function(x,y) y/x, log=TRUE, adjustPlates="median")
# ## Define the controls for the normalized intensities (only one channel):
# negControls = vector("character", length=dim(x$xnorm)[4])
# ## For the single channel, the negative controls are geneA and geneB
# negControls[1]= "(?i)^geneA$|^geneB$"
# posControls = vector("character", length=dim(x$xnorm)[4])
# ## For the single channel, the negative controls are geneC and geneD
# posControls[1]="(?i)^geneC$|^geneD$"
# writeReport(x, force=TRUE, plotPlateArgs=list(xrange=c(-3,3)),
# posControls=posControls, negControls=negControls)
# ## End(Not run)
Run the code above in your browser using DataLab