La librarie affyQCReport
(1) permet la création automatique d'un rapport de contrôle de qualité qui comprend plusieurs des méthodes retrouvées dans le duo affy
/simpleaffy
: boîte à moustache, graphe de contrôle de qualité des sondes QC Affymetrix, etc. Il ajoute un test de corrélation par rang de Spearman, très intéressant pour juger des relations entre les puces; par exemple, est-ce que les échantillons contrôle sont tous semblables?
affyQCReport()
, il faut démarrer avec une session R:# Operation tres complexe... % R
Impilo > Analyse statistique > R GUI
.R> setwd("/vers/repertoire/fichiers/cel")
affyQCReport
dans votre session R. Vous verrez à la console que R charge les librairies dont dépend affyQCReport.R> library("affyQCReport")
AffyBatch
. Comme affyQCReport
a besoin de affy
ET de simpleaffy
, les méthodes read.affy
et ReadAffy
utilisées ici fonctionnent très bien. Par exemple:R> data<-read.affy(covdesc="covdesc")
R> QCReport(data,file="myQCReport.pdf")
simpleaffy
. Voir la documentation de ce package pour l'interprétation exacte mais il est suffisant de dire que tout ce qui est rouge est suspect…affyQCReport
analyse les données des sondes contrôles négatives et positives qui se trouvent en bordure des puces. Si les données sont bonnes, on devrait observé que les moyennes et les écart-types devraient être comparable d'une puce à l'autre dans les deux cas. Si on observe de grosse variations dans les contrôles positifs, on a probablement affaire à une hybridation inégale; si c'est le cas des contrôles négatifs, on va probablement observé un bruit de fonds élevé.affyQCReport
utilise les données d'intensité et les données de position pour déterminer pour chaque puce un centre d'intensité ou COI. Si l'hybridation est uniforme, la position de ce COI devrait être près du centre. Il est évident qu'on observe un certaine variabilité mais si une puce est très divergente, on la trouvera en outlier dans le graphe.titlePage(data,file=“myFunction.pdf”)
: page 1signalDist(data,file=“myFunction.pdf”)
: page 2plot(qc(data),file=“myFunction.pdf”)
: page 3borderQC1(data,file=“myFunction.pdf”)
: page 4borderQC2(data,file=“myFunction.pdf”)
: page 5correlationPlot(data,file=“myFunction.pdf”)
: page 6