if(require("blimaTestingData") && interactive())
{
#To print basic statistic data about blimatesting[[1]] object.
data(blimatesting)
array1stats = chipArrayStatistics(blimatesting[[1]], includeBeadStatistic=TRUE,
excludedOnSDMultiple=3)
array1pheno = pData(blimatesting[[1]]@experimentData$phenoData)
array1stats = data.frame(array1pheno$Name, array1stats)
colnames(array1stats)[1] <- "Array";
print(array1stats);
}else
{
print("To run this example, please install blimaTestingData package from bioconductor by running biocLite('blimaTestingData').");
}
Run the code above in your browser using DataLab