Browse code

Adding batchQC to phenoData

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@39998 bc3139a8-67e5-0310-9ffc-ced21a209358

Benilton Carvalho authored on 08/06/2009 14:49:43
Showing 3 changed files

... ...
@@ -155,3 +155,7 @@ is decoded and scanned
155 155
 2009-05-07 Matt Ritchie - committed version 1.3.2
156 156
 
157 157
 * Updated usage of sampleNames() on NChannelSet objects in Illumina functions to maintain consistency with Biobase
158
+
159
+2009-06-08 B Carvalho - committed version 1.3.3
160
+
161
+* Added batchQC to phenoData
... ...
@@ -1,7 +1,7 @@
1 1
 Package: crlmm
2 2
 Type: Package
3 3
 Title: Genotype Calling (CRLMM) and Copy Number Analysis tool for Affymetrix SNP 5.0 and 6.0 and Illumina arrays.
4
-Version: 1.3.2
4
+Version: 1.3.3
5 5
 Date: 2008-12-30
6 6
 Author: Rafael A Irizarry, Benilton S Carvalho <bcarvalh@jhsph.edu>, Robert Scharpf <rscharpf@jhsph.edu>, Matt Ritchie <mritchie@wehi.EDU.AU>
7 7
 Maintainer: Benilton S Carvalho <bcarvalh@jhsph.edu>, Robert Scharpf <rscharpf@jhsph.edu>, Matt Ritchie <mritchie@wehi.EDU.AU>
... ...
@@ -45,10 +45,13 @@ getVarInEnv <- function(dataset, environ=.crlmmPkgEnv){
45 45
 
46 46
 list2SnpSet <- function(x, returnParams=FALSE){
47 47
   pd <- data.frame(SNR=x[["SNR"]], gender=x[["gender"]],
48
+                   batchQC=rep(x[["batchQC"]], length(ncol(x[["calls"]]))),
48 49
                    row.names=colnames(x[["calls"]]))
49 50
   pdv <- data.frame(labelDescription=c("Signal-to-noise Ratio",
50
-                      "Gender: Male (1) and Female (2)"),
51
-                    row.names=c("SNR", "gender"))
51
+                      "Gender: Male (1) and Female (2)",
52
+                      "Quality score for batch"),
53
+                    row.names=c("SNR", "gender", "batchQC"))
54
+
52 55
   recall <- length(x[["DD"]]) > 1
53 56
   if (returnParams){
54 57
     if (recall){