if(require("blimaTestingData") && exists("annotationHumanHT12V4") && interactive())
{
#Create vector of negative array addresses.
negAdr = unique(annotationHumanHT12V4$Controls[annotationHumanHT12V4$Controls$Reporter_Group_Name=="negative", "Array_Address_Id"])
#Create summarization of nonnormalized data from GrnF column.
data(blimatesting)
blimatesting = bacgroundCorrect(blimatesting, channelBackgroundFilter="bgf")
blimatesting = nonPositiveCorrect(blimatesting, channelCorrect="GrnF", channelBackgroundFilter="bgf", channelAndVector="bgf")
blimatesting = xieBacgroundCorrect(blimatesting, negativeArrayAddresses=negAdr, channelCorrect="GrnF", channelResult="GrnFXIE", channelInclude="bgf")
#Prepare logical vectors corresponding to conditions A(groups1Mod), E(groups2Mod) and both(processingMod).
xiecorrected = createSummarizedMatrix(blimatesting, quality="GrnFXIE", channelInclude="bgf",
annotationTag="Name")
head(xiecorrected)
}else
{
print("To run this example, please install blimaTestingData package from bioconductor by running biocLite('blimaTestingData') and prepare annotationHumanHT12V4 object according to blimaTestingData manual.");
}
Run the code above in your browser using DataLab